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The  Air  Force  Armament  Laboratory  AAA  Simulation  Computer  Program 
and  MICE  II  have  been  adapted  for  batch  processing  use  on  the  Naval 
Postgraduate  School  IBM  3033  computer.  To  ease  data  entry  and  reduce 
errors,  a  preprocessor  program  (PIP)  was  written  at  the  school.  The 
modifications  necessary  to  convert  PIP  from  a  batch  program  to  an 
interactive  one  are  described  herein. 

This  conversion  to  an  interactive  program  has  two  goals:  graphics 
capability  and  portability.  The  revised  versions  are  designed  in  a  manner 
that  allows  users  to  modify  routines  to  meet  their  particular  hardware 
and  software.  The  graphics  capability  implements  PIP  using  TEKTRONIX 
4010  family  hardware  and  PLOT-10  software.  Derivative  versions  implement 
the  program  using  the  IBM  3277  graphics  system  and  using  strictly  keyboard 
versions.   In  addition  to  PIP,  a  program  for  graphic  design  of  scenario 
maps  was  developed. 
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I.   INTRODUCTION 

Simulating  an  aircraft  flight  path  requires  a  great  deal  of  informa- 
tion. This  information  usually  includes  position  and  velocity  as  a 
function  of  time.  More  detailed  descriptions  may  require  heading,  climb, 
and  roll  angles,  as  well  as  velocity  components  in  one  or  more  coordinate 
systems.  Additionally,  the  simulation  will  have  constraints  on  the 
aircraft's  performance,  such  as  G  load  and  power  available.  Finally,  the 
simulation  will  have  certain  aspects  of  aircraft  utilization  such  as 
altitude  or  approach  limits,  which  it  tests.  These  might  relate  to  a 
bombing  mission,  transcontinental  passenger  service,  or  an  encounter  with 
an  anti-aircraft  system.  Although  real-time  flight  path  simulation  is 
necessary  in  the  final  stages  of  a  system's  development,  the  use  of 
simple,  pre-defined  flight  paths  in  the  early  design  phases  is  still  a 
helpful  tool . 

Generating  the  information  for  these  flight  paths  is  an  excellent 
application  of  the  capabilities  of  the  digital  computer.  Given  a  few 
broad  parameters,  the  computer  can  generate  and  properly  format  the  other 
information  the  particular  simulation  requires.  The  alternative  is  the 
time-consuming  and  error-prone  process  of  having  the  simulation  user 
determine  and  properly  enter  all  of  the  data  needed  for  the  simulation. 

To  further  aid  the  user,  a  graphic  capability  is  desirable.   It  is 
much  simpler  for  a  user  to  decide  upon  a  flight  path  if  he  can  see  where 
he  is  flying.   In  addition,  cursor-mapped  input  reduces  the  chances  of 
incorrectly  typing  in  parameters. 
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There  are  two  simulation  programs  at  the  Naval  Postgraduate  School 
which  require  pre-defined  aircraft  flight  paths  as  input  data.  They  are 
the  Air  Force  Armament  Laboratory's  Anti-Aircraft  Artillery  (AAA)  Simula- 
tion (called  P001)  and  the  Vought  Corporation's  surface-to-air  missile 
(SAM)  engagement  simulation  (called  MICE  II).  Both  programs  are  used  by 
the  military  aircraft  industry,  being  specifically  called  for  in  Reference  1 
Both  programs  are  used  in  the  Naval  Postgraduate  School  course  in  aircraft 
survivability  (AE  3251)  as  tools  for  gaining  an  understanding  of  the 
factors  affecting  aircraft  survivability  in  a  hostile  AAA  and  SAM  environ- 
ment. The  students  are  required  to  fly  a  bombing  mission  against  a 
target  defended  by  seven  AAA  weapons,  one  which  has  a  fixed  location,  and 
one  SAM  site.  They  are  formed  into  teams  of  two,  and  each  team  plots  a 
flight  path  and  selects  defensive  positions.  One  team  then  flies  its 
route  against  an  opposing  team's  weapons,  and  vice  versa. 

At  the  present  time,  P001  and  MICE  II  are  implemented  for  batch 
processing  on  the  school's  IBM  3033  computer,  having  been  converted  from 
the  IBM  360  system  in  1980.  The  input  to  both  programs  requires  a 
significant  amount  of  formatted  data,  the  entry  of  which  is  time-consuming, 
tedious,  and  error-prone.  To  alleviate  part  of  this  problem,  a  pre- 
processing program  called  PIP  (P001  Input  Processor)  was  written  in  1978. 
This  program  required  that  the  operator  enter  only  the  milestone  X,  Y, 
and  Z  coordinates,  an  initial  speed,  and  control  indicators  for  the  type 
of  output  desired.   It  too  was  written  for  the  IBM  360  system  batch  mode. 
It  was  converted  to  the  new  3033  system  in  1981,  but  was  not  re-written. 

With  the  improved  time-sharing  capabilities  of  the  3033  system,  it 
was  desirable  to  make  PIP  interactive.  A  significant  problem  of  the 
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batch  system  was  the  requirement  to  submit  a  complete  flight  path  to  PIP 
for  evaluation  with  respect  to  aircraft  performance  and  mission  rules. 
PIP  evaluated  the  milestones  and  indicated  which  ones  were  outside  the 
allowable  limits  of  the  parameters.  The  student  then  had  to  change  the 
milestones  that  were  causing  the  problems  and  hope  that  the  corrections 
did  not  affect  the  points  that  were  not  changed.   Since  the  run  often 
generated  punched  cards  for  P001  and  MICE,  a  great  deal  of  waste  occurred, 
Another  problem  was  that  the  user  had  to  plot  the  points  on  a  map,  copy 
them  to  a  piece  of  paper,  and  then  type  or  punch  them  in  using  the  proper 
FORTRAN  format.   This  was  extremely  tedious  and  sensitive  to  typing 
errors. 

The  major  goal  of  this  thesis  effort  was  to  alleviate  these  problems 
through  the  use  of  an  interactive,  graphics  capability.  The  availability 
of  TEKTRONIX  and  IBM  graphics  terminals  and  software,  and  the  IBM  3033 
CMS  made  this  possible.  Using  a  graphic  terminal,  the  user  is  presented 
with  a  map  of  an  attack  scenario.   A  cursor  is  used  to  input  the  hostile 
AAA  and  SAM  locations.  The  cursor  is  also  used  to  input  the  aircraft 
milestone  position  and  velocity.   As  each  milestone  is  entered,  the 
flight  parameters  are  computed  and  checked  against  flight  (maximum 
velocity,  G  loading,  etc.)  and  simulation  (bomb  drop  distance,  pop-up 
maneuver,  etc.)  constraints  for  validity.  Milestones  which  do  not  meet 
the  constraints  are  rejected,  the  user  is  informed  of  the  error,  and  a 
new  milestone  is  requested.  At  any  time  up  to  the  final  milestone 
the  user  may  reset  the  problem  to  any  previous  point.  The  user  may  also 
input  data  from  an  existing  file  to  re-run  a  previous  trial.  When  the 
final  milestone  is  identified,  the  operator  is  given  the  option  of 
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generating  P001  and  MICE  input  data  files,  or  no  file  at  all.   In  addition, 
the  gun,  SAM,  and  flightpath  data  are  saved  for  later  use. 

A  secondary  goal  was  that  of  software  transportability.  The  intention 
is  to  make  the  programs  available  to  the  survivability  community.  To 
support  this  goal,  a  modular  design  was  used.  Routines  which  were 
software  or  hardware  dependent  were  modularized  for  ease  of  replacement. 
Requirements  unique  to  the  user  (simulation  rules,  vulnerability  tables, 
etc.)  were  also  modularized.  This  modularization  allowed  the  creation  of 
a  non-graphic  version  that  would  work  at  any  keyboard  terminal. 

The  main  body  of  this  thesis  will  describe  the  functions  of  the 
various  modules.  This  will  include  a  description  of  parameters  passed 
and  common  blocks  required. 
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II.   APPROACH 

A.   GOALS 

As  stated  above,  the  problem  was  approached  with  two  goals  in  mind: 
ease  of  interaction  and  transportability.   Ease  of  interaction  meant  that 
the  system  should  require  minimum  interaction  from  the  user  while  provid- 
ing rapid  feedback  to  required  inputs.  Transportability  meant  that  users 
on  other  systems  could  easily  convert  the  program  to  their  systems. 

To  support  the  goal  of  simple  interaction,  a  graphics  capability  was 
felt  to  be  vital.  This  would  allow  the  user  to  get  a  much  better  feel 
for  the  data  he  was  creating.   In  addition,  the  burden  of  formatting  and 
copying  would  be  eliminated.  Once  the  data  has  been  input,  the  program 
must  be  prompt  in  providing  feedback  as  to  its  validity.   A  major  concern 
in  interactive  systems  is  the  response  time.  For  direct  data  input,  a 
response  time  of  less  than  one  second  is  desirable.  For  inputs  requiring 
further  computation,  two  to  three  seconds  is  an  adequate  time.  For 
complicated  actions,  such  as  drawing  a  map,  responses  on  the  order  of 
minutes  is  appropriate.  These  times  are  primarily  based  on  the  human 
willingness  to  accept  delay. 

To  meet  the  requirements  of  transportability,  several  changes  to 
PIP  were  necessary.   To  support  different  hardware  and  software  configur- 
ations, any  section  which  relied  on  specific  system  characteristics  had 
to  be  isolated  for  easy  replacement.  This  applied  particularly  to  the 
graphics  sections,  which  presently  require  either  the  TEKTRONIX  4010 
family  of  terminals  and  PL0T-10  software,  or  IBM  graphic  terminals  and 
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GRAF77  software.  By  isolating  these  modules  in  FORTRAN  subroutines,  the 
system  will  operate  with  other  graphic  systems  if  the  appropriate  software 
is  changed.  By  eliminating  the  graphic  commands,  the  system  can  be 
converted  to  run  on  any  keyboard  terminal . 

Another  area  where  changes  are  needed  is  in  the  sections  dealinq 
with  simulation  rules.  The  rules  presently  included  are  those  which 
support  the  Naval  Postgraduate  School  aircraft  survivability  course.  The 
flight  parameters  are  computed  from  the  user  input  of  position  and 
velocity.  Other  users  may  desire  to  incorporate  more  or  less  sophis- 
ticated rules  and  parameter  computation  to  better  meet  their  needs.  To 
accomplish  this,  two  subroutines  and  the  BLOCK  DATA  must  be  channed. 

B.   METHODOLOGY 

In  planning  the  program,  the  basic  logic  sequence  was  first  outlined. 
This  allowed  the  preliminary  definition  of  the  various  modules.  A  module 
was  created  any  time  a  function  either  occurred  more  than  once,  or 
required  implementation  unique  to  a  particular  system.  For  example,  the 
ability  to  read  position  coordinates  was  needed  several  times,  so  the 
module  XYZIN  was  written.   Similarly,  providing  information  to  the  user 
to  assist  in  aligning  his  flight  path  properly  for  a  bomb  run  occurs  in 
only  one  location,  but  the  manner  in  which  the  data  is  displayed  depends 
on  the  type  of  terminal  being  used. 

Once  the  modules  were  defined,  it  was  possible  to  determine  which 
data  would  be  shared  between  them.  When  several  modules  required  the 
same  data,  or  a  parameter  list  would  be  extremely  long,  a  global  data  set 
was  created  to  pass  the  information. 
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Finally,  the  system  was  implemented  with  a  top-down  approach. 
Stubs  were  used  by  higher  level  modules  until  lower  level  modules  could 
be  written  and  tested.  This  approach  reduced  the  code  that  had  to  be 
checked  after  a  particular  test  when  an  error  was  discovered. 
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III.   FUNCTIONAL  DESCRIPTION 

A.   DATA  SETS 

1.   Internal  Sets 

a.  Screen  Window  Defined 

This  data  set  must  contain  the  coordinates  of  the  various 
screen  windows  which  the  program  will  use. 

b.  Target  Definition 

This  data  set  contains  the  virtual  screen  coordinates  of 
the  target. 

c.  Options  List 

This  data  set  contains  the  variables  necessary  to  transmit 
user  options  throughout  the  program. 

d.  Flight  Parameter  List 

This  data  set  contains  the  variables  which  define  the  flight 
path. 

e.  Simulation  Parameter  List 

This  data  set  contains  the  variables  which  are  the  constraints 
on  aircraft  performance  that  the  user  wishes  to  incorporate. 

f.  Coordinate  List 

This  data  set  contains  the  variables  associated  with  the 
user's  entry  of  milestones. 

g.  Error  Message  Pointer 

This  data  set  contains  the  information  necessary  to  locate 
the  error  messages. 
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2.  External  Sets 

a.  Weapon  Locations 

This  data  set  contains  the  location  of  the  hostile  weapon 
sites. 

b.  Map  File 

This  data  set  contains  the  X/Y  coordinate  pairs  and 
instruction  markers  for  drawing  the  attack  scenario  map. 

c.  Milestone  File 

This  data  set  contains  the  X,  Y,  and  Z  coordinates,  velocity, 
and  option  commands  for  each  milestone  of  the  flight  path. 

d.  Output  File 

There  is  a  separate  file  for  each  simulation  for  which  the 
program  provides  data.   In  addition,  a  scratch  file  is  maintained  in  case 
of  system  failures. 

e.  Rule  File 

This  file  saves  the  simulation  constraints  to  allow  the  user 
to  rapidly  change  the  entire  set  of  constraints. 

B.  MODULES 
1.  MAIN 

This  module  is  the  sequence  control  routine  and  is  invoked 
on  program  load.  The  module  calls  BEGIN  to  request  the  user's  options. 
It  then  calls  SCENE  to  draw  the  scenario.  Based  on  user  response  during 
initialization,  the  module  then  establishes  the  weapon  locations  by 
reading  a  disk  file,  using  a  default  set,  or  having  the  user  enter  them 
at  the  terminal.   If  the  terminal  input  option  is  selected,  the  old 
weapon  site  file  is  erased  and  the  new  values  are  placed  in  it.  MAIN 
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then  accepts  data  for  the  aircraft  flight  path  milestones.  The  user 
decides  during  initialization  whether  the  data  will  come  from  a  disk  file 
or  the  terminal  and  whether  or  not  errors  will  cause  the  inputs  to  be 
rejected.  Once  the  data  for  each  milestone  is  read,  the  flight  parameters 
are  computed  in  the  VALSET  module  and  checked  for  errors  in  the  ERRCHK 
module.   Errors  are   identified  to  the  user  and  the  data  is  rejected  if 
the  user  so  indicated.   If  no  errors  occur,  or  if  they  are  being  iqnored, 
the  module  calls  the  PTHPLT  module  to  draw  the  current  leg.  When  using 
the  terminal  to  enter  the  milestone  data,  the  user  may,  at  any  point 
before  the  final  milestone,  reset  the  flight  path  to  a  previous  point  and 
begin  from  there  to  enter  new  data.   If  the  input  disk  file  has  a  continu- 
ation command,  the  program  will  shift  from  the  disk  input  mode  to  the 
terminal  input  mode.  Once  the  final  entry  is  indicated,  MAIN  calls  the 
ELFIN  module  to  obtain  the  user's  output  options  and  then  calls  the 
PRESET  module  to  implement  them. 

2.  VALSET 

VALSET  is  the  module  responsible  for  computation  of  those 
parameters  required  by  the  main  simulation  programs  but  not  provided  by 
the  user.   It  contains  the  equations  necessary  for  the  computation  of 
those  parameters.  The  module  can  also  indicate  an  error  when  the  user's 
data  causes  a  condition  which  will  be  undefined,  such  as  inputs  which 
cause  a  division  by  zero. 

3.  ERRCHK 

This  module  contains  the  rules  that  the  user  wishes  the  flight 
path  to  obey.  These  include  constraints  on  flight  performance  (thrust, 
acceleration,  etc.)  and  rules  particular  to  the  mission  (approach  rules, 
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bomb  release  limits,  etc.).  A  violation  returns  an  error  code  identifying 
the  rule  that  was  violated. 

4.  PTHPLT 

This  is  the  module  responsible  for  notifying  the  user  that  the 
data  entered  met  all  the  constraints  and  has  been  accepted.   It  also 
saves  the  user's  input  in  a  scratch  file  to  protect  against  system 
crashes. 

5.  SPOT 

This  module  is  the  actual  interface  between  the  user  and  the 
computer  for  entering  position  data.   It  obtains  two  positions  (X  and  Y) 
and  two  command  inputs  from  the  user  and  transmits  them  to  the  program. 
The  calling  routine  is  responsible  for  properly  interpreting  the  X  and  Y 
values. 

6.  SCENE 

SCENE  is  responsible  for  drawing  the  graphic  displays  needed  by 
the  program.  Data  for  the  map  is  read  from  the  map  file.  The  data  is 
either  a  move  or  stop  command  or  an  X/Y  pair  indicating  where  the  beam  is 
to  be  positioned.  The  module  also  has  a  role  in  the  reset  sequence. 
When  a  reset  procedure  is  executed  by  MAIN,  it  passes  the  information  to 
SCENE.   SCENE  then  prompts  the  user  to  indicate  which  milestone  is  the 
last  one  he  wishes  to  retain.  This  value  is  returned  to  MAIN. 

7.  WIN 

This  module  is  responsible  for  defining  a  window  on  the  screen. 
The  module  is  provided  with  the  screen  coordinates  desired  and  the 
virtual  range  that  the  window  represents.  The  lower  left  corner  is 
always  given  a  virtual  value  of  (0,0).   Under  control  of  the  calling 
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routine,  the  module  will  flash  the  window  to  act  as  a  prompt  to  the  user 
to  look  at  that  window. 

8.  XYZIN 

This  module  is  responsible  for  obtaining  the  data  necessary  to 
identify  a  single  location.  The  module  defines  the  windows  by  calling 
WIN  and  actually  obtains  the  data  by  calling  SPOT. 

9.  GUNLQC 

This  module  is  used  to  display  special  points  such  as  the  weapon 
locations  and  the  target.  The  location  is  marked  with  a  "+".   It  then 
draws  a  circle  around  the  location  with  a  radius  specified  by  the  calling 
routine. 

10.  BEGIN 

BEGIN  is  the  module  responsible  for  initializing  the  program. 
The  user's  options  for  data  input  are  requested  and  passed  to  MAIN  through 
the  Option  Data  Set.  The  module  also  executes  the  calls  that  initialize 
the  graphics  routines  and  computes  the  coordinates  of  the  various  windows 
to  be  used. 

11.  GUNCHK 

This  module  is  responsible  for  checking  the  gun  emplacement 
rules.  A  violation  results  in  the  appropriate  error  code  being  returned. 

12.  PRESET 

This  module  is  responsible  for  formatting  the  data  so  that  it 
is  compatible  with  the  data  file  expected  by  the  simulation  program  which 
is  to  use  the  flight  path.   It  is  also  responsible  for  conversion  from 
Metric  to  English  units  where  necessary. 
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13.  ELFIN 

This  module  obtains  the  user's  output  options  and  closes  access 
to  the  graphics  routines. 

14.  AIMPT 

This  module  provides  a  display  to  the  user  to  allow  proper 
alignment  for  the  bombing  runs. 

15.  CONCHG 

This  module  allows  the  user  to  change  the  value  of  the  simulation 
limits.   It  also  saves  these  changes  and  allows  the  user  to  read  a 
complete  set  of  limits  from  a  disk  file. 

16.  ERRMK 

This  module  sends  error  messages  and  prompts  to  the  operator 
when  graphic  routines  are  being  used.  The  message  to  be  set  is  identified 
by  a  parameter  passed  by  the  calling  routine. 

17.  SAMCHK 

This  module  is  responsible  for  checking  for  violations  of 
the  SAM  emplacement  rules.   If  errors  Are   detected,  it  calls  ERRMK  with 
the  appropriate  code  and  returns  a  "1"  to  the  calling  routine.   A  zero 
is  returned  if  no  errors  occur. 
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IV.   FLIGHT  DYNAMICS 

When  defining  a  flight  path,  the  user  must  provide  a  finite  set  of 
milestone  coordinates.  The  leg  between  each  pair  of  milestones  is 
usually  considered  to  be  straight.  However,  this  straight  line  path 
causes  problems  with  the  computation  of  some  of  the  flight  path  parameters. 
For  instance,  the  heading  at  milestone  I  in  a  simple  simulation  could 
easily  be  computed  as: 

Heading.  .  =  Arctan  (DY/DX) 
where  DX  and  DY  are  the  X  and  Y  components  of  the  leg  from  milestone  1-1 
to  I.   If  "i"  and  "j"  are  redefined  as  I  and  I  +  1,  the  equation  is  still 
a  legitimate  approximation  of  the  heading  at  I .   In  reality,  the  aircraft's 
heading  at  milestone  I  is  somewhere  between  these  two  values.  The  same 
is  true  of  the  climb  angle.  These  two  angles  in  turn  define  the  X,  Y, 
and  Z  components  of  velocity  at  the  milestone. 

To  account  for  this  ambiguity,  the  program  uses  an  averaging  technique 
for  computing  the  data  required  to  define  the  flight  path.  The  technique 
uses  the  operator's  input  of  position  and  velocity  over  three  milestones, 
except  at  the  initial  and  final  milestone,  to  compute  average  values  of 
heading,  climb,  and  velocity  components. 

First,  the  previous  leg's  distance  and  average  velocity  (from  1-2  to 
1-1)  are  saved  in  DISTL  and  VAVGL  for  later  use.  Next,  the  current  leg 
(from  1-1  to  I)  is  evaluated,  with  the  X,  Y,  and  Z  components  and  distance 
DIST  being  computed  as  follows: 
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DX  =  X(I)  -  X(I-l) 
DY  =  Y(I)  -  Y(I-l) 
DZ  =  Z(I)  -  Z(I-l) 
DIST  =  (DX2  +  DY2  +  0Z2)1/2 
The  average  velocity  VAVG  equation  is: 

VAVG  =  (VEL(I)  +  VEL(I-l))/2 
The  time  for  the  leg  (DT)  and  the  total  time  (T(I))  is  then  computed: 

DT  =  DIST/VAVG 
T(I)  =  T(I-l)  +  DT 
The  average  X,  Y,  and  Z  components  of  velocity  along  the  leg  (1-1  to  I) 
become: 

AXD(I)  =  VAVG*DX/DIST 
AYD(I)  =  VAVG*DY/DIST 
AZD(I)  =  VAVG*DZ/DIST 
At  milestone  I,  the  acceleration  components  can  now  be  computed  for 
milestone  1-1  (see  Fig.  1): 

DELT  =  (T(I)  -  T(I-2))/2 
XDD  =  (AXD(I)  -  (AXD(I-1))/DELT 
YDD  =  (AYD(I)  -  (AYD(I-1))/DELT 
ZDD  =  (AZD(I)  -  (AZD(I-1))/DELT 
Three  working  vectors,  TDX,  TDY,  and  TDZ,  determine  the  average  X,  Y,  and 
Z  components  that  will  be  used  to  compute  the  climb  and  heading  angles. 
These  in  turn  will  determine  the  components  of  velocity  (XDOT,  YDOT, 
ZDOT)  at  the  previous  (1-1)  milestone.  The  equations  are: 

HDAVG  =  DIST/(DIST  +  DISTL) 


27 


1-1 


AXD(I) 


VAVGL 


1-2 


AXD(I-l) 


AYD(I) 


Figure  1.  Components  of  Average  Velocity-Horizontal  Flight 
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TDX  =  (AXD(I)/VAVG  -  AXD( I-1)/VAVGL)*HDAVG  +  AXD( 1-1 )/VAVGL 

TDY  =  (AYD(I)/VAVG  -  AYD( I-1)/VAVGL)*HDAVG  +  AYD( I-1)/VAVGL 

TDZ  =  (AZD(I)/VAVG  -  AZD( I-1)/VAVGL)*HDAVG  +  AZD( I-1)/VAVGL 

UNIT  =  (TDX2  +  TDY2  +  TDZ2)1/2 

TDX  =  TDX/UNIT 

TDY  =  TDY/UNIT 

TDZ  =  TDZ/UNIT 


XDOT(I- 

YDOT(I- 

ZDOT(I- 

CA(I- 

HDG(I- 


=  VEL(I-1)*TDX 

=  VEL(I-1)*TDY 

=  VEL(I-1)*TDZ 

=  Arctan  (TDZ/(TDX2  +  TDY2)1/2) 


=  Arctan  (TDY/TDX) 
To  compute  the  roll  angle  RA  and  the  forces  acting  on  the  aircraft,  it 
is  necessary  to  transform  the  acceleration  from  the  group  coordinate 
system  into  an  aircraft  centered  coordinate  system  with  axes  parallel  and 
perpendicular  to  the  flight  path.  The  parallel  component  in  the  direction 
of  flight  is  TMD.  PH  is  perpendicular  to  the  flight  path,  parallel  to 
the  X/Y  plane,  and  out  the  left  wing.  PP  is  parallel  to  the  cross  product 
TMD  x  PH  (see  Fig.  2).   The  transformation  equations  are: 

TMD  =  All  +  A12  +  A13 
PH  =  A21  +  A22  +  A23 
PP  =  A31  +  A32  +  A33 
where 

GEE  =  9.82,  the  gravitational  constant 
HDCOS  =  cos  (HDG) 
HDSIN  =  sin  (CA) 
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Figure  2.   Aircraft  and  Reference  Coordinate  Systems 
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CACOS  =  cos  (CA) 
CASIN  =  sin  (CA) 

All   =  XDD(I-l)*HDCOS*CACOS 
A21  =  XDD(I-1)*HDSIN 
A31  =  XDD(I-l)*HDCOS*CASIN 
A12   =  YDD(I-l)*HDSIN*CACOS 
A22  =  YDD(I-l)*HDCOS 
A32   =  YDD(I-1)*HDSIN*CASIN 
A13  =   (ZDD(I-l)   +  GEE)*CASIN 
A23  =  0 

A33  =   (ZDD(I-l)   +  GEE)*CACOS 
The  total    lift  ACLIFT   is  the  vector  sum  (PH  +  PP)   of  the  perpendicular 
forces   and    it    is   assumed  that  the  aircraft  will   roll    such   that  the  wings 
are  perpendicular  to  the  lift.     The  equations   are  therefore: 
ACLIFT  =   (PH2  +  PP2)1/2 
RA  =  -Arctan   (PH/PP) 
The  vectors  PH  and  PP  are  not  explicitly  computed  and,   with  the  acceleration 
in  terms  of  G's,   the  equations  become: 

TMD  =   (All   +■  A12  +  A13)/GEE 
ACLIFT  =   ((A21  +  A22)2  +   (A31  +  A32  +  A33)2) 1/2/GEE 
RA  =   -Arctan    (A21  +  A22)/(A31  +  A32  +  A33)) 
TMD,  the  net   acceleration  parallel   to  the  flight  path,    is  the  sum  of  the 
aircraft's  thrust   and  drag  divided  by  aircraft  weight: 

F/W  =  ma/W  =  ma/mg  =   a/g  =  TMD 
where  F  =  total   force,   W  =  total   weight,  m  =  aircraft  mass,    a  =  accelera- 
tion,   and  g  =  gravitational    acceleration.     The  drag  force  can   be  computed 

from  the   lift.     The  equations   are   as   follows: 
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CL  =  2*ACLIFT/(RHO*VEL(I)2/WL) 
DW  =  ((COO  +  CDK*CL2)/CL)*ACLIFT 

TW  =  TMD  +  DW 

?  ?  ? 

where  RHO  =  density  of  air  in  (lb*sec  )/(ftr*meterc) .  The  mixed 

units  ire   required  to  use  Metric  units  for  velocity  and  English  units  for 

wing  loading. 

CL  =  lift  coefficient 

WL  =  wing  loading  in  lbs/ft 

DW  =  drag  divided  by  weight 
CDO  =  drag  coefficient  for  zero  lift 
CDK  =  factor  relating  lift  and  drag  coefficients 

TW  =  thrust  divided  by  weight 
Maximum  values  of  ACLIFT,  CL,  and  TW  were  used  as  constraints  on  aircraft 
performance.  TW  must  be  positive  or  zero.   If  it  is  found  to  be  negative, 
then  TMD  must  be  negative.  This  is  a  large  negative  acceleration  and 
implies  speed  brakes  are  being  used.  Consequently,  a  different  drag 
equation  must  be  used.  The  program  assumes  the  brakes  have  a  drag 
coefficient  of  one  and  a  surface  area  equal  to  five  percent  of  the  wing 
surface.  The  new  drag  equation  is: 

DW  =  (ACLIFT/CL)*(0.05  +  CDO  +  (CDK*CL2))/2 
This  drag  is  used  to  reevaluate  TW  and  thus  determine  whether  or  not  the 
attempted  deceleration  exceeded  the  capabilities  of  the  speed  brake. 
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V.   GRAPHICS  HARDWARE  AND  SOFTWARE 

Two  interactive  graphic  systems  are  suported  by  the  IBM  3033  computer. 
The  TEKTRONIX  PLOT-10  software  package  supports  terminals  from  the 
TEKTRONIX  4010  family  and  is  available  for  implementation  on  a  wide 
variety  of  computers,  including  minicomputers.  The  IBM  3277-based 
graphics  package  is  available  only  on  IBM  computers  used  in  conjunction 
with  modified  IBM  3277  terminals.  Both  systems  use  direct  view  storage 
tubes  for  the  graphics  display  and  keyboard  and  cursor  for  data  input. 

A  direct  view  storage  tube  is  one  in  which  the  picture  does  not  have 
to  be  continuously  refreshed.  The  major  advantages  with  this  type  of 
display  is  that  the  line  drawing  is  faster  and  the  lines  that  are  drawn 
are  continuous.  This  creation  of  continuous  lines  is  not  available  on 
raster  scan  (television  style)  display  devices.  These  displays  sweep 
horizontally  from  top  to  bottom  and  have  a  finite  number  of  elements, 
called  pixels,  that  are  turned  either  on  or  off  on  each  sweep.  These 
discrete  elements  can  lead  to  the  "staircase  effect,"  where  the  line 
makes  finite  jumps  from  one  row  or  column  to  another.  On  direct  view 
storage  tubes,  this  effect  is  eliminated  because  the  electron  beam  can  be 
steered  to  any  point  on  the  screen  and  moved  directly  to  any  other 
point. 

The  major  disadvantage  of  most  storage  tube  displays  is  that  portions 
of  the  screen  cannot  be  erased  without  erasing  the  entire  screen.   In 
order  to  remove  an  undesired  display,  the  entire  screen  must  be  cleared 
and  then  the  portions  that  are  to  be  retained  are  redrawn.  This  can  be 
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very  annoying  to  the  operator.   It  also  causes  delays  that  adversely 
affect  the  user's  willingness  to  continue  with  the  program.  For  instance, 
drawing  the  scenario  displays,  when  operating  at  300  BAUD,  takes  almost 
five  minutes.  Raster  scan  devices  do  not  have  this  problem  because  the 
picture  is  continuously  redrawn  and  there  is  no  difficulty  changing  it. 

The  TEKTRONIX  terminal  for  which  this  program  was  written  is  the 
Model  4012.  This  terminal  has  an  8-1/2  inch  by  6-1/2  inch  screen  and  a 
standard  computer  keyboard.  The  PLOT-10  software  identifies  the  screen  as 
a  coordinate  system  1,023  units  wide  and  780  units  high,  with  the  lower 
left  corner  having  a  value  of  (0,0).  The  software  also  provides  for  the 
definition  of  screen  windows  and  virtual  coordinate  systems.  A  screen 
window  is  a  rectangle  on  the  screen.   It  is  defined  by  the  lower  and  upper 
horizontal  and  vertical  coordinates  the  programmer  provides.  There  is  no 
limit  to  the  number  windows  that  can  be  defined,  but  only  one  exists  at  a 
particular  time.  A  similar  concept  is  the  virtual  window.  Once  a  screen 
window  is  activated,  the  programmer  can  assign  the  range  of  coordinates 
that  this  window  will  represent.  The  PLOT-10  software  also  provides  for 
converting  from  Metric  and  English  units  to  screen  units  and  vice  versa. 
Combined  with  a  virtual  coordinate  system,  this  allows  the  programmer  to 
provide  true  scale  drawings.   For  example,  the  attack  map  screen  window 
is  defined  as  starting  1/5  inch  from  the  left  side  of  the  screen  and 
extending  to  6-1/5  inches  from  the  left.  This  six  inch  length  is  then 
given  virtual  limits  of  0  and  18,000,  giving  a  true  scale  of  3,000 
meters/inch. 

Hard  copy  output  from  the  TEKTRONIX  4012  can  be  obtained  by  connecting 
the  terminal  to  either  the  TEKTRONIX  4662  interactive  plotter  or  the 
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TEKTRONIX  4631  hard  copy  device.  The  4662  plotter  is  capable  of  being 
independently  controlled  with  PLOT-10  software,  or  it  can  duplicate  what 
is  occurring  on  the  4012  screen.  Figure  3  is  the  output  from  the  plotter 
operating  in  parallel  with  the  terminal.  The  4012  can  also  electronically 
scan  the  display.  This  information  is  then  used  to  control  the  light 
intensity  that  exposes  the  light  sensitive  paper  in  the  4631  copier. 
Figure  4  is  the  output  obtained  from  the  4631  hard  copy  device. 

The  IBM  3277-based  graphics  system  is  a  dual  screen  system.   It  uses 
an  additional  circuit  card  in  an  IBM  3277  terminal,  which  has  a  raster 
scan,  to  drive  a  TEKTRONIX  622  direct  view  storage  tube  display.  The 
software  package  is  very   versatile.   It  provides  a  wide  variety  of 
three-dimensional,  geometric,  and  vector-drawing  support  and  a  limited 
capability  for  a  moving  display.  Another  advantage  is  the  availability 
of  the  raster  terminal.  This  greatly  facilitates  alphanumeric,  as 
opposed  to  graphic,  input  and  output.  The  extensive  support  this  package 
provides  is  also  a  handicap.  The  functions  are  generally  more  difficult 
to  use  than  those  provided  by  PLOT-10.   In  addition,  the  software  is 
partially  incompatible  with  FORTRAN  terminal  input/output.  When  FORTRAN 
input/output  routines  (WRITE  or  READ)  are  used,  the  raster  screen  must  be 
manually  cleared  before  execution  continues.  This  is  a  major  distraction. 

Like  the  4012,  the  TEKTRONIX  622  can  electronically  scan  its  display 
and  drive  the  4631  hard  copy  device.  Figure  5  is  a  copy  of  the  display 
as  it  appears  on  the  622  screen.  Ultimately,  the  Naval  Postgraduate 
School's  TEKTRONIX  622' s  will  be  connected  to  a  VERSATEC  electrostatic 
plotter.  This  will  significantly  improve  the  overall  capability  of  the 
graphic  support  at  the  school. 
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VI.   DETAILED  DESCRIPTION 

This  section  will  provide  a  detailed  description  of  the  program  as 
implemented  using  the  PLOT-10  software  to  support  the  TEKTRONIX  4010 
family  of  terminals.  The  first  segment  will  describe  the  internal  and 
external  data  required  by  the  program  while  the  second  will  describe  the 
modules. 

For  the  purposes  of  this  section,  a  definition  of  the  meaning  of 
"data  set"  is  required.  The  words  "data  set"  describe  a  logical  group  of 
data.  The  FORTRAN  language  uses  the  term  "data  set"  to  identify  a 
hardware  device.  The  term  "FORTRAN  data  set  (number)"  will  be  used  to 
define  this  concept.  For  example,  the  MAP  file  is  a  data  set  consisting 
of  points  that  define  the  scenario  map.  The  information  is  contained  on 
a  device  which  has  been  identified  as  FORTRAN  data  set  9. 

The  description  of  the  internal  data  will  identify  the  use  of  each 
variable  in  a  data  set,  and  the  range  of  values  the  variable  can  be 
assigned.  The  external  data  set  descriptions  will  list  the  contents  and 
format  of  each  element. 

The  final  part  of  this  section  will  describe  the  modules.   A  brief 
functional  description  will  be  given.  Those  parameters  which  must  be 
provided  to  the  module  or  returned  by  it  will  then  be  described.  The 
global  data  sets  which  the  module  uses  will  be  identified,  but  not  the 
individual  elements  of  the  set.  Next,  the  description  will  list  the 
higher  level  modules  that  the  module  must  support.  This  will  be  followed 
by  a  list  of  the  module's  local  variables,  which  will  describe  the  use 
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and  possible  values  of  the  variable.  The  final  segment  will  be  an 
algorithmic  and  flowchart  description  of  the  module.   In  the  algorithmic 
description  comments  will  be  marked  by  square  brackets  ([  ]). 
A.   INTERNAL  DATA  SETS 

1.  Screen  Window  Defined 

The  variables  for  this  data  set  are  contained  in  common  block  MN. 
The  variables  are: 

a.  IBAUD 

This  variable  identifies  the  baud  rate  of  the  user's  terminal. 
This  is  necessary  to  allow  the  screen  prompts  to  flash  sufficiently  long 
to  attract  attention,  but  not  too  long  as  to  be  distracting.  The  allow- 
able values  are:  (1)  0— this  indicates  a  slow  (110-300  BAUD)  terminal 
interface;  and  (2)  any  positive  integer—this  indicates  a  fast  (1,300- 
9,600)  terminal  interface  with  the  computer.  The  larger  the  number,  the 
more  times  the  prompt  flashes  will  appear.  Since  the  baud  rate  determines 
the  length  of  time  between  flashes,  a  larger  number  of  flashes  will 
result  in  the  prompt  being  visible  for  a  greater  period  of  time. 

b.  MINY,  MAXY 

These  variable  identify  the  lower  and  upper  vertical  limits 
for  all  the  screen  windows.  They  can  be  assigned  any  positive  integer 
value  within  the  limits  of  a  TEKTRONIX  screen,  subject  only  to  the  con- 
straint that  MAXY  is  greater  than  MINY.  For  the  TEKTRONIX  4012  terminal, 
the  values  are:  (1)  MINY  =  777-KIN(4.375) ,  which  places  the  screen 
windows'  lower  boundary  4.375  inches  from  the  top  of  the  screen;  and  (2) 
MAXY  =  777-KIN(0.375),  which  places  the  screen  windows'  upper  limit  0.375 
inches  from  the  top  of  the  screen,  making  the  windows  four  inches  high. 
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c.  MINX,  MAXX 

These  are  the  left  and  right  screen  limits  of  the  map  window. 
They  can  be  assigned  any  positive  integer  value  within  the  limits  of  a 
TEKTRONIX  screen,  subject  only  to  the  constraint  that  MINX  is  less  than 
MAXX.  For  TEKTRONIX  4012,  the  values  are:   (1)  MINX  ■  KIN(0.20),  which 
places  the  left  screen  boundary  of  the  map  one  fifth  inch  from  the  left 
edge  of  the  screen;  and  (2)  MAXX  =  KIN(6.20),  which  places  the  map's 
right  screen  boundary  6.20  inches  from  the  left  side  of  the  screen  for  a 
window  six  inches  wide. 

d.  MINI,  MAX1 

These  variables  define  the  left  and  right  screen  borders  of 
the  altimeter.  They  can  be  any  positive  integer  within  the  limits  of  the 
TEKTRONIX  screen,  subject  to  two  constraints.  MINI  must  be  less  than 
MAX1  and  the  range  of  MIN1-MAX1  must  not  overlap  that  of  MINX-MAXX.  For 
this  program,  the  values  are  computed  as  follows:   (1)  MINI  =  MAXX  +  10, 
which  places  the  left  screen  limit  of  the  altimeter  window  10  units  to 
the  right  of  the  map  window;  and  (2)  MAX1  =  MAXX  +  185,  which  places  the 
right  border  185  screen  units  to  the  right  of  the  map  window  and  makes 
the  altimeter  window  175  units  wide. 
2.  Target  Definition 

The  variables  for  this  data  set  are  found  in  common  block  TAR. 
They  are: 

a.   TARGX 

This    is  the  X  coordinate  of  the  target.      It  must  have   a 
positive  value  less  than  18,000  to  appear  on  the  map  and   is   initialized 
in  the  Block  Data  section   to  a  value  of  14,000. 
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b.   TARGY 

This  is  the  Y  coordinate  of  the  target  and  must  be  a  positive 
value  less  than  12,000  to  appear  on  the  map.   It  is  initialized  in  the 
Block  Data  section  to  a  value  of  7,220. 
3.  Option  List 

These  variables  are  found  in  the  common  block  OPT  and  are  defined 
as  follows. 

a.  IGUN 

This   is   a  variable  used  to   indicate  the  source  of  the  weapon 
site  data.     The  values   are  assigned  the  following  meaning:     (1)  0--the 
weapon   site  data  is  to  be  obtained  from  the  external   data  set  GUN  LOC; 
(2)   l--the  weapon  site  data  will   be  entered  by  the  user  at  the  terminal; 
and  (3)   any  other  value—the  weapon   site  data   is  the  default  data  contained 
in  common  block  PAR2. 

b.  IPNCH 

This  control   variable  relays  the  users  choice  of  the  output 
files  to  be  created  by  module  PRESET.     The  values  mean:     (1)  0--no  output 
files   are  desired;    (2)    l--only  a  P001   file   is  to  be  written;    (3)   2--only 
a  MICE   II   file   is  to  be  written;    and   (4)    any  other  value—both  P001   and 
MICE   II   files   are  to  be  written. 

c.  IEXT 

This  controls  whether  or  not  the  P001  extended  output  option 
cards  are  written.  The  values  are:   (1)  1— extended  output  option  is 
requested;  and  (2)  any  other  value— the  option  is  not  requested. 
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d.  ISAM 

This  is  the  missile  type  to  be  used  in  the  MICE  II  file. 
It  may  be  any  integer  between  1  and  7.  The  missile  type  is  defined  in 
Reference  2. 

e.  IMP 

This   indicates  the  user's  option  for  the  source  of  the 
milestone  data  and  has  the  following  definition:      (1)  0--the  data  is  to 
be  obtained  from  the  external   data  set  PTS  LOC;   and  (2)   any  other  value-- 
the  data   is  to  be  entered  by  the  user  at  the  terminal. 

f.  KER 

This   indicates  the  user's  option  to   ignore  errors.     The 
possible  values   are:      (1)   0--ignore  errors;   and   (2)   any  other  value—notify 
the  user  of  violations  of  the  simulation  parameters. 
4.     Flight  and  Weapon  Parameter  List 

This  data  set  consists  of  three  common  blocks.     These  blocks 
are  PAR,   PARI,   and  PAR2.     The  variables    in  PAR  are: 

a.  X,  Y,  Z 

These  are  200  element  arrays  where  X(I),  Y(I),  Z(I)  are  the 
X,  Y,  and  Z  coordinates  in  meters  of  milestone  I. 

b.  CA,  HDG,  RA 

These  are  200  element  arrays.  CA(I),  HDG(I),  and  RA(I)  are 
the  climb,  heading,  and  roll  angles  in  radians  of  the  aircraft  at 
milestone  I. 

c.  VEL 

This  is  a  200  element  array  with  VEL(I)  representing  the 
aircraft  velocity  in  meters/second  at  milestone  I. 
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The  variables  in  PARI  are: 

d.  XDOT,  YOOT,  ZDOT 

These  are  200  element  arrays.  XDOT(I),  YDOT(I),  and  ZDOT(I) 
are  the  X,  Y,  and  Z  components  in  VEL(I)  at  milestone  I. 

e.  MNUM 

This  is  a  counter  that  indicates  the  current  milestone. 

f.  MBR 

This   is   a  counter  that   indicates  the  milestone  at  which  the 
aircraft's  weapons  were  released. 
The  variables   in  PAR2  are: 

g.  T 

This  is  a  200  element  array.  T(l)  is  zero  and  T(I)  is  the 
elapsed  time  at  milestone  I. 
h.  XGUN,  YGUN,  ZGUN 

These  are  seven  element  arrays  which  contain  the  X,  Y,  and 
Z  location,  in  meters,  of  the  gun  emplacements.  The  default  values  are 
initialized  in  the  Block  Data  section, 
i.   XSAM,  YSAM,  ZSAM 

These  are  the  X,  Y,  and  Z  location,  in  meters,  of  the  SAM 
emplacement.  The  default  values  are  set  in  the  Block  Data  section. 
j.  GR 

This  is  a  seven  element  array.  GR( I)  is  the  engagement 
radius  of  gun  I.  The  values  for  GR  are  established  in  the  Block  Data 
section. 
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5.  Simulation  Parameter  List 

The  data  set  is  contained  in  commom  blocks  PAR3  and  PAR4. 
PAR3  contains: 

a.  TMD 

This   is  the  net   acceleration,    in  G's,   parallel   to  the  aircraft's 
flight  path. 

b.  ACLIFT 

This  is  the  net  acceleration,  in  G's,  perpendicular  to  the 
flight  path  of  the  aircraft. 

c.  CLMAX 

This  is  the  maximum  allowable  coefficient  of  lift.   It  is 
initialized  to  1  in  the  Block  Data  section. 

d.  WL 

This  is  the  wing  loading  of  the  aircraft  in  pounds/ft  . 
It  is  set  to  100  in  the  Block  Data  section. 

e.  TMAX 

This    is  the  maximum  thrust-to-weight  ratio,    in  G's,   that   the 
aircraft  can  provide.     The   initial   value  of  0.4   is  set   in  Block  Data. 

f.  CDO 

This  is  the  drag  coefficient  with  zero  lift.  Block  Data 
sets  it  initially  to  0.015. 

g.  CDK 

This  is  the  factor  relating  the  drag  and  lift  coefficients 
and  is  set  in  Block  Data  to  a  value  of  0.1. 
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h.  VMAX1,  VMAX2 

These  are  the  maximum  allowable  aircraft  velocities,  in 
meters/second,  before  and  after  the  bombs  have  been  released  and  are  set 
equal  to  260  and  310,  respectively,  in  Block  Data. 
The  variables  contained  in  PAR4  are: 
i .   APPMAX 

This  is  the  maximum  altitude,  in  meters,  that  the  aircraft 
can  ascend  to  before  executing  its  pop-up  maneuver.  Block  Data  sets  this 
variable  to  457. 

j.   HTMIN,  HTMAX 

These  are  the  minimum  and  maximum  altitudes,  in  meters, 
that  the  aircraft  can  position  itself.   HTMIN  is  set  to  60  and  HTMAX  to 
2,050  in  Block  Data. 
k.  SPDMIN 

This  is  the  aircraft  stall  speed,  in  meters/sec.   It  is  set  to 
an  initial  value  of  90  in  the  Block  Data  section. 
1 .  GMAX 

This  is  the  maximum  G  force  that  the  aircraft  can  sustain 
and  is  set  to  6  in  Block  Data, 
m.  P0PMIN 

This  is  the  minimum  distance  to  the  target,  in  meters, 
before  the  aircraft  can  begin  the  pop-up  maneuver.  Block  Data  sets  it 
at  6,000. 

6.  Coordinate  List 

The  variables  in  this  data  set  are  contained  in  common  block 
LOC.  The  variables  are: 
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a.  XI,  Yl,  Zl 

These  are  the  X,  Y,  and  Z  values  entered  by  the  user  at 
a  milestone. 

b.  VI 

This  is  the  velocity  selected  by  the  user. 

c.  LTR,  LTR2 

These  are  operator  commands.  They  have  the  following  meaning 
(1)  65--this  indicates  that  the  user  wants  assistance  in  aligning  his 
flight  path  for  a  bombing  run;  (2)  66 — this  means  the  user  wants  to 
release  the  bombs  at  this  milestone;  (3)  85--this  means  that  the  user 
wants  to  reset  the  flight  path  to  an  earlier  point;  (4)  86 — this  means 
that  the  user  is  finished  with  milestone  entry;  and  (5)  any  other  value- 
no  effect. 

7.  Error  Message  Pointer 

The  variables  in  this  data  set  are  found  in  common  block  ERR. 
They  are: 

a.  MKERX 

This  is  a  three  element  array  that  indicates  which  column 
contains  the  error  message.  For  the  TEKTRONIX  4012,  these  columns  are 
set  in  Block  Data  to  screen  coordinates  640,  340,  and  40. 

b.  MKERY 

This  is  a  20  element  array  that  contains  the  vertical  screen 
coordinates  of  the  error  messages.  The  array  is  initialized  in  Block 
Data. 
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B.   EXTERNAL  DATA  SETS 

1.  Weapon  Locations 

This  data  set  is  maintained  on  FORTRAN  data  set  10.  The  data 
set  is  written  using  (3F10.2)  format.  The  three  elements  are   the  X,  Y,  and 
Z  coordinates  of  the  weapon  sites.  The  set  contains  seven  weapon  sites. 
These  are  the  coordinates  of  gun  sites  1-6  and  the  SAM  site. 

2.  Map  File 

This  data  set  is  found  on  FORTRAN  data  set  9.  The  format  is 
(2F10.2).  The  information  is  organized  as  follows: 

1.  The  first  element  is  the  coordinate  set  that  marks  the  first  point 
to  be  drawn  on  the  map. 

2.  Subsequent  data  is  interpreted  as  follows:   (1)  positive  values- 
draw  a  line  to  the  point  that  was  just  read;  (2)  negative  value  greater 
than  -1  — ignore  this  set,  read  the  next  set  and  move  the  cursor  there 
without  drawing;  and  (3)  negative  value  less  than  -l--end  of  data. 

3.  Milestone  File 

This  data  set  is  found  on  FORTRAN  data  set  11.  The  format  is 
(4F10 .0,13) .  Each  line  is  organized  as  follows: 

a.  Elements  1-4 

These  are  the  X,  Y,  Z,  and  velocity  values  for  the  milestone 
in  (F10.0)  format. 

b.  Element  5 

This   is  the  command   and    is   interpreted   as   follows:      (1) 
83— last  milestone;    (2)  66—release  the  bomb  on  this  milestone;   and   (3) 
1— after  this  milestone,   stop  reading  milestones  from  the  external    data 
set   and  begin  accepting  them  from  the  user. 
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4.  Output  Files 

These  files  contain  the  data  in  the  formats  specified  in  Refer- 
ences 3  and  4.  The  P001  file  is  written  to  FORTRAN  data  set  18  and  the 
MICE  II  file  is  written  to  FORTRAN  data  set  17. 

5.  Rule  File 

This  file  is  found  on  FORTRAN  data  set  16.  The  format  is  (6F12.4) 
The  first  set  of  six  contains  the  values  of  CLMAX,  WL,  SPDMIN,  GMAX, 
HTMIN,  and  HTMAX.  The  second  set  of  six  contains  POPMIN,  APPMAX,  TMAX, 
CDO,  CDK,  and  VMAX1.  The  final  set  of  three  contains  the  values  for 
VMAX2,  TARGX,  and  TARGY. 

C.  MODULES 
1.  MAIN 

a.  Function:  MAIN  controls  the  execution  of  the  entire  program. 

b.  Parameters  Required:  None. 

c.  Common  Blocks:  MN,  PAR,  PARI,  PAR2,  OPT,  LOC. 

d.  Called  By:  None. 

e.  Local   Variables: 

(1)  I— used   as   a  loop  counter. 

(2)  FTFAC—constant   for  converting  meters  to  feet. 

(3)  DGFAC--constant   for  converting  radians   to  degrees. 

(4)  ICT--counter  used  to   indicate  the  milestone  selected 
during  resets. 

(5)  LAST— end  of  file  marker  for  flight  path   file.     A  1 
indicates  the  flight  path  will    be  continued,  83  marks   the  final   milestone. 
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(6)  DX,   DY,   DZ--X,   Y,   and  Z  components  of  the  final    leg 

of  the  flight  path,   used  to  compute  final   values  of  HDG,   CA,   XDOT,   YDOT, 
and  ZDOT. 

(7)  BLANK—constant   set   to  0  for  output   to  flight  path   file. 

f.      Algorithm 

initialize  MBR,  MNUM,  and  T(l) 

call  BEGIN  [initialize] 

cal 1  SCENE  [draw  map] 

rewind  gun  disk  file 

if  (terminal  input  of  gun  sites)  then  [IGUN  =  1] 

prompt  user  to  input  gun  coordinates 

do  I  =  1  to  6 

do  until  (IERR  =  0) 
IERR  =  0 

call  XYZIN  [get  coordinates] 
if  (Zl>  =  1,000)  then  STOP 

if  (Zl>  =  5)  then  call  GUNCHK  [check  for  valid  location 
return  IERR  error  code] 

if  (IERROO  then  call  ERRMK  [indicate  error] 
end  do 

write  XI,  Yl,  and  Zl  to  disk  file  GUNLOC 
end  do 

write  missile  prompt 
do  until  (IERR  =  0) 

call  XYZIN  [get  SAM  coordinates] 
if  (Zl  >  =  1,000)  then  stop 
call  SAMCHK  [check  for  correct  placement] 
end  do 

write  SAM  coordinates  to  disk  file 
else  if  (disk  input  requested)  then  do  [IGUN  =  0] 
do  I  =  1  to  6 

read  XGUN(I),  YGUN(I),  and  ZGUN(I)  from  disk  file  GUN  LOC 
end  do 

read  XSAM,  YSAM,  and  ZSAM  from  disk  file  GUN  LOC 
end  if  [terminal  input  selected] 
do  until  (command  =  stop) 
do  I  =  1  to  7 

call  GUNLOC  [draw  gun  site] 
end  do 

call  GUNLOC  [draw  SAM  site] 
set  constants 

prompt  user  to  enter  milestones 
rewind  milestone  disk  file  PTS  LOC 

do  until  (command  =  stop  or  ((command  =  reset)  and  (terminal 
input  requested))) 
increment  MNUM 
do  until  (IERR*KER  =  0  and  IERR  <>  12) 
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if  (disk  input  requested)  then  [IMP  =  0] 
do  until  (X  >  0.1) 

read  X,  Y,  Z,  VEL,  and  LTR  [LTR  is  command 
variable] 
end  do 
LTR2  =  LTR 

if  (command  =  shift  to  terminal  input)  IMP  =  1 
[LTR  =  1] 
FIX  else  call  XYZIN  [get  X,  Y,  X,  VEL,  LTR,  and  LTR2] 

end  if 

if  (MNUM  =  1  and  command  =  stop)  then  STOP  [LTR  =  83  OR 
LTR2  =  83] 
if  (MNUM  >  1)  then 
IERR  =  0 

call  VALSET  [compute  flight  parameters] 
if  (command  =  bomb  release)  then  MBR  =  MNUM  [LTR  =  66] 
if  (command  <>  restart  and  command  <>  stop)  then 
[LTR  <>  82  or  83] 

if  (IERR  =  0)  call  ERRCHK  [return  error  code  IERR] 
if  (IERR*KER  <>  0  or  IERR  =  12)  then 
call  ERRMK 

if  (disk  milestone  input)  then  ask  user  if 
error  is  to  be  ignored 
if  (error  not  ignored)  then  go  to  FIX 
end  if 
end  i  f 
end  if  [MNUM  >  1] 
end  do  [until  IERR*KER  =  0  and  IERR  <>  12] 
call  PTHPLT  [mark  milestone] 
if  (command  =  aim)  call  AIMPT  [LTR  =  65] 
end  do  [until  command  =  stop  or  command  =  restart] 
if  (command  =  restart)  then  [LTR  =  82] 

call  SCENE  [redraw  map  and  get  restart  milestone] 
rewind  scratch  file  TEMP  DATA 
if  (MBR  >  ICT)  then  MBR  =  0 
if  (ICT  =  1)  then 

MNUM  =  0 
else 

do  MNUM  =  2  to  ICT 

call  PTHPLT  [plot  milestones] 
end  do 

decrement  NMUM 
end  if  [ICT  =  1] 
end  if  [command  =  restart] 
end  do  [until  command  =  stop] 
call  PTHPLT  [plot  final  milestone] 
LAST  =  IMP 

call  ELFIN  [get  output  options] 
compute  final  milestone  flight  parameters 
if  (new  flight  path  or  new  gun  locations  created)  then 
[IMP  =  0,  IGUN  >  0] 

rewind  flight  path  file  PTS  LOC 
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IF  (IGUN  >  1)  then  IGUN  =  1 
write  header  on  PTS  LOC 
do  I  =  1  to  MNUM 
LTR  =  0 

if  (MBR  =  I)  LTR  =  66 
else  if  (I  =  MNUM)  then  LTR  =  LAST 
end  if 

write  to  disk  file  PTS  LOC  X,  Y,  Z,  VEL,  and  LTR 
end  do 

write  end  of  milestone  marker  to  file  PTS  LOC 
write  old  PIP  option  line  to  file  PTS  LOC 
if  (IGUN  <>  0)  then 
do  I  =  1  to  6 

write  XGUN,  YGUN,  and  ZGUN  to  disk  file  PTS  LOC 
end  do 

write  XSAM,  YSAM,  and  ZSAM  to  file  PTS  LOC 
end  if 
end  if  [IMP  =  1  or  IGUN  >  0] 
do  I  =  1  to  MNUM 

convert  CA,  RA,  and  HDG  from  radians  to  degrees 
end  do 
call  PRESET 
end  MAIN 

2.  VALSET 

a.  Function:  This  subroutine  computes  the  flight  parameters 
for  each  milestone.  XDOT,  YDOT,  ZDOT,  CA,  HDG,  and  RA  are  computed  for 
output  to  P001  and  MICE  II.  TMD  and  ACLIFT  are  computed  for  use  by 
ERRCHK.  See  Section  IV  for  the  equations  of  motion. 

b.  Parameters  Required:   IERR— set  to  12  if  there  is  no  change 
in  the  horizontal  (X,  Y)  position. 

c.  Common  Blocks:  PAR,  PARI,  PAR2,  PAR3. 

d.  Called  By:  MAIN. 

e.  Local   Variables: 

(1)  GEE--gravitational   constant  9.82  meters/sec. 

(2)  DX,   DY,   0Z--X,   Y,   and  Z  components  of  the  flight-path 
leg  being  evaluated. 

(3)  VAVGL--average  velocity  of  the  previous   leg. 

(4)  DISTL--length  of  previous   leg. 
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velocity, 


(5)  DIST— length  of  the  current  leg. 

(6)  VAVG— average  velocity  of  the  current  leg. 

(7)  DT— time  along  the  current  leg. 

(8)  AXD,  AYD,  AZD— X,  Y,  and  Z  components  of  current  average 

(9)  DELT--time  along  current  and  previous  legs. 

(10)  XDD,  YDD,  ZDD--X,  Y,  and  Z  components  of  acceleration. 

(11)  HDAVG-- weighting  factor  for  computing  TDX,  TDY,  and  TDZ. 

(12)  TDX,  TDY,  TDZ— weighted  X,  Y,  and  Z  components  of  velocity, 

(13)  UNIT— conversion  factor  to  make  (TDX  +  TDY  +  TDZ)  a  unit 


vector 


(14)  CASIN,  CACOS— sine  and  cosine  of  the  climb  angle  CA. 

(15)  HDGSIN,  HDGCOS—  sine  and  cosine  of  the  heading  HDG. 

(16)  All,  A12,  A13--X,  Y,  and  Z  components  of  acceleration 
parallel  to  the  flight  path. 

(17)  A21,  A22,  A23— components  of  acceleration  perpendicular 
to  the  flight  path  and  parallel  to  the  X/Y  plane  due  to  X,  Y,  and  Z 
compenents  of  acceleration. 

(18)  A31,  A32,  A33— components  of  acceleration  perpendicular 
to  the  flight  path  not  parallel  to  the  X/Y  plane  due  to  X,  Y,  and  Z 
components  of  acceleration. 

f.  Algorithm 

compute  DX,  DY,  and  DZ 

if  (no  horizontal  motion)  then 

IERR  =  12 

return 
else 

save  old  values  of  VAVG  and  DIST  in  VAVGL  and  DISTL 

compute  DIST 

if  (VEL  >  VMAX1  and  bomb  not  released)  then  VEL  =  VMAX1 
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Figure  7.  VALSET  Flow  Chart 
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if  (VEL  >  MAX  2  and  bomb  released)  then  VEL  =  VMAX2 

compute  VAVG 

compute  DT  and  T 

compute  AXD,  AYD,  and  AZD 

if  (MNUM  =  2)  then 

compute  CA,  RA,  HDG,  XDOT,  YDOT,  and  ZDOT  for  milestone  1 
else 

compute  DELT 

compute  XDD,  YDD,  and  ZDD 
compute  HDAVG 

compute  TDX,  TDY,  TDZ,  and  UNIT 
if  (UNIT  <  0.01)  then 
IERR  =  12 
return 
else 

recompute  TDX,  TDY,  and  TDZ 

compute  XDOT,  YDOT,  ZDOT,  CA,  and  HDG  for  milestone 
MNUM-1 

compute  A11-A33 
compute  TMD,  ACLIFT,  and  RA 
end  if  [UNIT  <  0.01] 
end  if  [MNUM  =  2] 
end  if  [no  horizontal  motion] 
return 
end  VALSET 

3.  ERRCHK 

a.  Function:  This  subroutine  evaluates  the  flight  parameters 
to  ensure  that  they  meet  the  desired  simulation  limits. 

b.  Parameters  Required:   IERR — returns  the  error  code  for 
simulation  violations. 

c.  Common  Blocks:  PAR,  PARI,  PAR2,  PAR3,  PAR4,  TAR. 

d.  Called  By:  MAIN. 

e.  Local   Variables: 

(1)  DX,  DY--X  and  Y  distances  to  the  target,  later  used  as 
the  X  and  Y  components  of  the  current  leg. 

(2)  DIST — distance  to  the  target. 

(3)  POPALT--altitude  of  the  pop-up  maneuver. 
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(4)  TMSAV--saves  the  value  of  TMAX  before  bombs   are  dropped. 

This   is  used  when  the  flight  path   is  reset   after  bombs   are  dropped. 

2      2     2 

(5)  RHO--density  of  air  in  lb  sec  /meters  feet  .  The 

mixture  of  units  is  necessary  since  the  coordinate  system  is  in  Metric 
units  and  wing  loading  is  in  English  units.  This  provides  the  proper 
units  for  computing  CL  and  DW. 

(6)  CL— lift  coefficient. 

(7)  DW--drag  divided  by  weight 

(8)  TW--thrust  divided  by  weight 

(9)  DT--time  spent  on  current  leg. 

(10)  TGTHDG--heading  from  the  aircraft  to  the  target  in 
degrees. 

(11)  ACHDG--direction  of  the  current  leg  in  degrees. 

(12)  HDGLMT— absolute  difference  between  ACHDG  and  TFTHDG. 

f.  Algorithm 

compute  OX,  DY,  and  DIST 

if  (MNUM  =  2  and  TMSAV  =  -1)  then 

POPALT  =  0 

TMSAV  =  TMAX 
end  if 

if  (MBR  =  0  and  TMAX  <>  TMSAV)  TMAX  =  TMSAV  [necessary  to 
reset  TMAX  when  the  flight  path  is  reset  following  a  successful 
bomb  release] 
call  ERRMK  (22) 
if  (bomb  not  released)  then  [MBR  =  0] 

if  (DIST  >  POPMIN  and  Z  >  APPMAX)  then 
IERR  =  4 
return 

end  if 
end  if 

if  (DIST  <  =  POPMIN  and  Z  >  POPALT)  then  POPALT  =  Z 
if  (Z  <  HTMIN)  then 

IERR  =  3 

return 
else  if  (Z  >  HTMAX)  then 

IERR  =  4 
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return 
else  if  (VEL  <  SPDMIN)  then 

IERR  =  5 

return 
end  i  f 

if  (MNUM  =  2)  then  Return 
if  (ACLIFT  >  GMAX)  then 

IERR  =  1 

return 
end  if 

compute  RHO,  CL 
if  (CL  >  CLMAX)  then 

IERR  =  17 

return 
end  if 

compute  DW  and  TW 
if  (TW  >  TMAX  or  TW  <  0)  then 

if  (TW  >  TMAX)  then  IERR  =  18 

Recompute  DW 

if  (TMD  +  DW  <  =  0)  then  IERR  =  1 

if  (IERR  <>  0)  then  Return 
end  if 

if  (bomb  not  dropped  this  milestone)  then  Return  [MNUM  OMBR] 
compute  DT,  DX,  DY,  TGTHDG,  ACHDG,  and  HDGLMT 
if  (POPALT  <  1,000)  then  IERR  =  6 
else  if  (Z  <  100)  then  IERR  =  7 
else  if  (Z  >  2,000)  then  IERR  =  8 
else  if  (DIST  >  2,000)  then  IERR  =  9 
else  if  (HDGLMT  >  5)  then  IERR  =  10 
else  if  (DT  <  2.33)  then  IERR  =  11 
else  TMAX  =  1.2*TMAX 
return 
end  ERRCHK 

4.  PTHPLT 

a.  Function:  This  subroutine  notifies  the  user  that  his  mile- 
stone has  been  accepted  and  then  saves  the  successful  point  in  a  temporary 
disk  file. 

b.  Parameters  Required:  None. 

c.  Common  Blocks:  MN,  PAR,  PARI. 

d.  Called  by:  MAIN. 

e.  Local  Variables:  None. 
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f.  Algorithm 

call  WIN  [define  map  window] 

move  to  previous  milestone 

draw  line  to  present  milestone 

label  milestone 

write  X,  Y,  Z,  VEL,  and  a  0  to  scratch  file  TEMP  DATA 

return 

end  PTHPLT 

5.  SPOT 

a.  Function:  This  subroutine  obtains  an  X/Y  coordinate  pair 
and  two  commands  from  the  user. 

b.  Parameters  Required: 

(1)  X,  Y--X,  and  Y  values  obtained  from  the  user,  returned  to 
the  cal 1 ing  routine. 

(2)  LI,  L2--two  commands  obtained  from  the  user,  returned  to 
the  cal 1 ing  routine. 

c.  Common  Blocks:  None. 

d.  Called  By:  XYZIN. 

e.  Local  Variables:  A,  B--dummy  variables  needed  for  subroutine 
VCURSR. 

f.  Algorithm 

do  until  (command  <>  no)  [L2  <>  78] 

input  X,  Y,  and  LI 

put  point  at  (X,  Y) 

input  L2  to  verify  location 
end  do 
return 
end  SPOT 

6.  SCENE 

a.  Function:  This  subroutine  draws  the  attack  scenario  map 
and  associated  displays.  During  reset  it  obtains  the  last  milestone  the 
user  wishes  to  retain. 
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b.  Parameters  Required: 

(1)  IRQ — signifies  the  reset  condition:  1  for  reset,  0  for 
initial  drawing. 

(2)  ICT--the  last  milestone  the  user  wishes  to  retain, 
returned  to  the  calling  routine. 

c.  Common  Blocks:  ERR,  MN,  TAR,  PAR. 

d.  Called  By:  MAIN. 

e.  Local   Variables: 

(1)  MAP--controls  whether  or  not  the  road,   buildings,    and 
river  are  drawn. 

(2)  X,   Y — X   and  Y  coordinates  of  points  on  the  map. 

(3)  IT— loop  counter. 

(4)  IW— scale  factor  for   labelling  the  axes  of  the  map. 

(5)  I  — index  for  MKERX. 

f.  Algorithm 

clear  screen 

write  village  option  prompt 
read  village  option  [MAP] 
if  (restart)  then  [IRQ  =  1] 
write  restart  prompt 
read  restart  point 
end  if  [restart] 
cal 1  WIN  to  define  map 
if  (village  drawn)  then  [MAP  =  1] 
rewind  disk  file  PICTUR  DATA 
read  TX,  TY 
do  until  (TX  <  -1) 
read  TX,  TY 
move  to  TX,  TY 

do  until  TX  <  0  and  TY  >  -1) 
read  TX,  TY 

if  (TX  >  0)  then  draw  to  (TXM  TY) 
end  do  [TX  <  0  and  TX  >  -1] 
end  do  [TX  <  -1] 
end  if 
call  GUNLOC  to  mark  target 
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Figure  11.  SCENE  Flow  Chart 
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label  map  axes 

if  (restart)  then  mark  last  altitude  and  velocity 

write  error  messages 

return 

end  SCENE 


7.  WII 


a.  Function:  This  subroutine  defines  a  window  on  the  screen 
and  sets  its  virtual  boundaries.  The  lower  left  corner  is  set  to  (0,0). 

b.  Parameters  Required: 

(1)  LX--minimum  screen  X  coordinate. 

(2)  MX--maximum  screen  X  coordinate. 

(3)  RX--maximum  virtual  X  coordinate. 

(4)  RY--maximum  virtual  Y  coordinate. 

(5)  JMP — controls  flashing  of  the  window  being  defined. 

c.  Common  Blocks:  MN. 

d.  Called  By:  PTHPLT,  GUNLOC,  SCENE,  XYZIN. 

e.  Local  Variables: 

(1)  ICT — determines  how  many  times  the  window  will  flash. 

(2)  I--loop  counter. 

f.  Algorithm 

define  window  screen  boundaries 
define  window  virtual  boundaries 
if  (flash  requested)  then 

compute  ICT 

do  I  =  1  to  ICT 
flash  window 

end  do 
end  if 
return 
end  WIN 

8.  XYZIN 


a.  Function:  This  subroutine  obtains  the  X,  Y,  Z,  velocity,  and 
command  for  the  milestone. 
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b.  Parameters  Required:   None. 

c.  Common  Blocks:  MN,  LOC. 

d.  Called  By:  MAIN. 

e.  Local   Variables:     None. 

f.  Algorithm 

call   BELL 

call  WIN  to  define  the  map 

call  SPOT  for  X,  Y,  LTR 

call  BELL 

call  WIN  to  define  the  altimeter 

call  SPOT  for  Z,  VI,  and  LTR2 

if  (LTR  is  lower  case)  then  convert  LTR  to  upper  case 

if  (LTR2  is  lower  case)  then  convert  LTR2  to  upper  case 

return 

end  XYZIN 

9.  GUNLOC 

a.  Function:  This  subroutine  marks  the  indicated  spot  with  a 
"+"  and  draws  a  circle  around  it. 

b.  Parameters  Required: 

(1)  GX,  GY--X  and  Y  coordinate  of  the  point  to  be  marked. 

(2)  RAD--radius  of  the  circle  marking  location. 

c.  Common  Blocks:  MN. 

d.  Called  By:  MAIN,  SCENE. 

e.  Local  Variables: 

(1)  ISTEP--size  of  the  step  in  the  loop  which  draws  the 
circle.  Small  circles  use  fewer  points,  therefore,  ISTEP  will  be  larger. 

(2)  Angle—angle  around  the  circle  at  which  a  point  will  be  drawn 

(3)  DX,  DY--X  and  Y  coordinates  of  the  point  to  be  drawn. 

f.  Algorithm 

call  WIN  [define  map  window] 
draw  cross  at  site 
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Figure  13.  GUNLOC  Flow  Chart 
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compute  ISTEP 

draw  dotted  circle  around  site 

return 

end  GUNLOC 

10.  BEGIN 

a.  Function:  This  subroutine  initializes  the  graphics  and 
requests  the  user's  options. 

b.  Parameters  Required:  None. 

c.  Common  Blocks:  MN,  PAR,  OPT. 

d.  Called  By:  MAIN. 

e.  Local  Variables:  K0N--user  input:  0  indicates  the  user 
wishes  to  use  default  simulation  parameters,  any  other  value  causes  a 
call  to  CONCHG  to  allow  the  user  to  input  his  own  parameters. 

f.  Algorithm 

call  INIT  [initialize  graphics] 

clear  screen 

write  gun  option  prompt 

read  IGUN 

write  milestone  option  prompt 

read  IMP 

write  error  option  prompt 

read  KER 

write  terminal  option  prompt 

read  IBAUD 

write  parameter  input  prompt 

read  KON 

if  (KON  <>  0)  then  call  CONCHG 

set  IPLOT  =  1 

compute  map  and  altimeter  boundaries 

return 

end  BEGIN 

11.  GUNCHK 

a.  Function:  This  subroutine  checks  gun  locations  against 
emplacement  rules. 

b.  Parameters  Required: 

(1)   X,  Y--location  of  the  gun   site. 
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Figure  14.  BEGIN  Flow  Chart 
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(2)  IERR — error  code  set  to  13  if  emplacement  rules  are 
violated. 

c.  Common  Blocks:  TAR. 

d.  Called  By:  MAIN. 

e.  Local   Variables:     DIST--distance  from  the  gun   site  to  the  target. 

f.  Algorithm 

compute  DIST 

if  (DIST  <  3,000)  then  IERR  =  13 

return 

end  GUNCHK 

12.   PRESET 

a.  Function:  This  subroutine  writes  the  P001  and  MICE  II  files 
for  the  user. 

b.  Parameters  Required:  PAR,  PARI,  PAR2,  OPT. 

c.  Common  Blocks:  None. 

d.  Called  By:  None. 

e.  Local  Variables: 

(1)  RCSTAB--radar  cross-section  table. 

(2)  VATlN2--vulnerabil ity  table  against  type  1  and  2  weapons. 

(3)  VAT3--vulnerabil ity  table  against  type  3  weapons. 

(4)  VAT5--vulnerabil ity  table  against  type  5  weapons. 

(5)  TINC— total  flight  time,  T(MNUM),  divided  by  1,000 
with  0.0008  added  to  eliminate  round-off  errors  due  to  POOl's  method  of 
time  calculation. 

(6)  TINKI--temporary  time  marker. 

(7)  TINK — array  with  nine  elements,  the  Ith  element  has  a 
value  I*T(MNUM)/10. 

(8)  FTFAC--conversion  factor  from  meters  to  feet,  set  to  3.28084 
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Figure  16.  PRESET  Flow  Chart 
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(9)  XFSAM,  YFSAM,  ZFSAM--X,  Y,  and  Z  coordinates,  in  feet,  of 
the  missile  site. 

f.  Algorithm 

compute  TINC  AND  TINK 

if  (P001  file  requested)  then  write  P001  DATA  file  [IPNCH  =  1  or  3] 

if  (MICE  file  requested)  then  [IPNCH  =  2  or  3] 
print  MICE  DATA  file  header 
convert  X,  Y,  Z,  and  VEL  from  meters  to  feet 
print  remaining  data  to  MICE  DATA 

end  if 

return 

end  PRESET 

13.  ELFIN 

a.  Function:  This  subroutine  requests  the  user's  output  options  and 
closes  the  graphic  routines. 

b.  Parameters  Required:  LAST— this  is  both  a  command  parameter 
to  ELFIN  and  a  returned  value  to  MAIN.  Sent  as  a  command,  it  has  the 
following  meaning: 

(1)  0--no  further  action  is  required. 

(2)  l--ask  the  operator  whether  or  not  he  is  finished  with 
the  flight  path  or  wishes  to  continue  at  a  later  time. 

If  LAST  was  sent  as  0,  it  is  returned  as  an  83.  If  a  1  was  sent,  it 
returns  as  follows: 

(1)  l--user  wishes  to  continue  the  flight  path  at  a  later 
time. 

(2)  83--user  is  finished  with  the  flight  path. 

c.  Common  Blocks:  MN,  OPT. 

d.  Called  By:  MAIN. 

e.  Local  Variables:  ICT--  loop  counter  that  determines  how 
often  the  prompt  line  will  be  flashed. 
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Figure  17.   ELFIN  Flow  Chart 
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f.  Algorithm 

write  ending  prompt 

compute  ICT 

do  I  =  1  to  ICT 

call  BELL 

underline  prompt 
end  do 

call  SCURSR  [wait  for  user  to  finish  viewing  screen] 
clear  screen 

call  FIN  [closes  graphics  routines] 
if  (LAST  <>  0) 

do  until  (ABS  (LAST)  <  2) 

write  flight  path  completion  option  prompt 
read  LAST 

end  do 

compute  LAST 
end  if 

write  output  file  option  prompt 
read  IPNCH 

if  (LAST  =  0)  LAST  =  83 

if  (no  output  requested)  then  return  [IPNCH  =  0] 
if  (P001  file  requested)  then  [IPNCH  =  1  or  3] 

write  extended  output  option  prompt 

read  IEXT 
end  if 
if  (MICE  file  requested)  then  [IPNCH  =  2  or  3] 

do  until  (ISAM  >  =  1  and  ISAM  <  =  7) 
write  missile  option  prompt 
read  ISAM 

end  do 
end  if 
return 
end  ELFIN 

14.  AIMPT 

a.  Function:  This  subroutine  marks  a  line  from  the  aircraft's 
current  position  to  the  target  to  help  align  the  bomb  release  leg. 

b.  Parameters  Required:  I— number  of  the  current  milestone. 

c.  Common  Blocks:  PAR,  TAR. 

d.  Called  By:  MAIN. 

e.  Local  Variables:  None. 


79 


AIMPT 


start 


move  to  current 
mt  lestone 


draw  dashed 
Mne  to  target 


return 


Figure  18.  AIMPT  Flow  Chart, 
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f.      Algorithm 

move  to   (X(I),   Y(I)) 

draw  dashed   lined  to  target 

return 

end  AIMPT 

15.  CONCHG 

a.  Function:     This  subroutine  allows  the  operator  to  change  the 
simulation  parameters. 

b.  Parameters  Required:     None. 

c.  Common  Blocks:     PAR3,   PAR4,  TAR. 

d.  Called  By:     BEGIN. 

e.  Local   Variables:     K--counter  to   indicate  which   parameter  the 
user  wants  to  change. 

f.  Algorithm 

clear  screen 

do  until  (input  completed)  [K  =  1] 
do  until  (K  >  =  1  and  K  <  =  17) 
write  prompt 
read  K 
end  do 
if  (K  >  1  and  K  <  16)  then 

write  prompt  for  parameter  to  be  changed 
read  new  value  of  the  parameter 
else  if  (K  =  16) 

read  parameter  values  form  disk  file  PAR  SAV 
else  if  (K  =  17) 

list  parameter  values  to  the  terminal 
end  if  [K  >  1  and  K  <  16] 
end  do  [input  completed  (K  =  1)] 
write  parameter  values  to  disk  file  PAR  SAV 
return 
end  CONCHG 

16.  ERRMK 

a.  Function:  This  subroutine  sends  prompts  and  error  messages  to 
the  user. 
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Figure  19.   CONCHG  Flow  Chart 
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b.  Parameters  Required:  IERR — this  indicates  which  message  is 
to  be  sent  to  the  operator. 

c.  Common  Blocks:  ERR,  MN. 

d.  Called  By:  MAIN,  VALSET,  ERRCHK,  SAMCHK. 

e.  Local  Variables: 

(1)  J--column  index. 

(2)  MKX,  MKY--working  variables  to  help  define  the  message 


line 


(3)  K--counter  which  defines  how  many  times  the  prompt  line 


is  displayed. 

f.  Algorithm 

if  (IERR  >  20)  then 

compute  MKX  and  MKY 

do  I  =  1  to  6 

draw  line  from  (MKX,  MKY)  to  MKX  +  30,  MKY) 

end  do 
else 

J  =  2 

if  (IERR  <  =  6)  then  J  =  1 

else  if  (IERR  >  12)  then  J  =  3 

compute  K  and  MKY 

do  I  =  1  to  K 

draw  line  from  (MKERX(J),  MKERY(IERR)  to  (MKX,  MKERY(IERR)) 
if  (IERR  <  10)  call  BELL 

end  do 
end  if 
return 
end  ERRNK 

17.  SAMCHK 

a.  Function:  This  subroutine  checks  the  missile  location 

for  emplacement  rule  violations.  A  violation  causes  a  call  to  ERRMK  with 
an  error  code  of  19. 

b.  Parameters  Required: 

(1)  X--X  coordinate  of  the  missile  site. 
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Figure  20.  ERRMK  Flow  Chart 
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(2)  IERR—error  code,  set  to  0  if  no  violation  occurs  and  set 
to  1  if  it  does. 

c.  Common  Blocks:  None. 

d.  Called  By:  MAIN. 

e.  Local   Variables:     None. 

f.  Algorithm 

IERR  = 

if  (X  <  6,000)  then  call  ERRMK  (19) 

IERR  =  1 
end  if 
return 
end  SAMCHK 
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Figure  21.      SAMCHK  Flow  Chart 


86 


VII.  MODIFICATION  INSTRUCTIONS 

A.  GENERAL 

As  stated  in  the  introduction,  one  goal  of  this  effort  was  to  develop 
a  program  that  would  be  transportable  to  other  systems.   This  section 
will  discuss  the  general  requirements  to  achieve  this  conversion  and 
then  describe  how  it  can  be  implemented  in  the  two  versions  that  currently 
exist  at  the  Naval  Postgraduate  School. 

The  first  change  that  must  be  made  is  the  conversion  to  the  user's 
graphics  system.  The  program  requires  the  following  capabilities: 

1.  Screen  and  Virtual  Window  Definition 

TWINDO  defines  a  window  in  screen  coordinates  while  DWINDO 
defines  the  virtual  coordinates  the  current  screen  window  will  assume. 
NEWPAG  clears  the  screen,  but  does  not  change  the  window  definitions. 

2.  Move  and  Draw 

A  "move"  positions  the  electron  beam  at  a  point  on  the  screen, 
but  does  not  draw  anything.  A  "draw"  creates  a  straight  line  on  the 
screen  from  the  current  beam  position  to  the  position  identified  in  the 
parameter  list.  MOVABS  and  DRWABS  are  absolute  screen  coordinate  move 
and  draw  commands.  MOVEA  and  DRAWA  are  the  virtual  coordinate  commands 
to  accomplish  these  functions.  MOVREL  is  a  virtual  move  relative  to  the 
current  beam  position  and  DASHA  is  a  virtual  draw  that  creates  a  dashed 
line. 
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3.  Print  to  the  Graphics  Screen 

Printing  to  the  screen  creates  alphanumeric  characters  on  the 
screen,  as  opposed  to  connected  lines.  ANMODE  enables  the  printing 
capabil ity. 

4.  Cursor  Input 

Cursor  input  allows  the  user  to  enter  a  command  value  and  the 
X  and  Y  coordinates  of  a  point  on  the  screen.  VCURSR  accepts  data  in 
virtual  coordinates  while  SCURSR  works  in  screen  coordinates. 

The  user's  functions  for  these  four  actions  must  be  substituted 
for  the  PLOT-10  functions  according  to  Table  1. 

The  next  change  that  must  be  made  is  to  implement  the  user's  air- 
craft performance  constraints.  The  module  VALSET  contains  the  equations 
for  computing  the  necessary  performance  values  and  has  the  ability  to 
indicate  boundary  errors  via  the  parameter  IERR.  The  constraints  on  the 
system  are  contained  in  module  ERRCHK,  and  performance  violations  are 
passed  with  the  parameter  IERR.  The  various  values  assigned  to  IERR  are 
used  by  ERRMK  to  communicate  with  the  user  whenever  the  graphics  routines 
are  being  used.  Therefore,  not  only  the  error  messages,  but  also  user 
prompts  must  be  supported  by  this  module.  There  is  one  other  constraint 
on  the  value  assigned  to  IERR.  When  assigned  a  value  of  12,  the  user's 
option  to  ignore  errors  is  overridden.  This  allows  the  programmer  to 
guard  against  situations  the  program  is  unable  to  handle,  such  as  division 
by  zero. 

The  final  change  is  in  the  format  of  the  output  files.  Because  the 
program  was  written  to  support  a  particular  Naval  Postgraduate  School 
course,  a  fixed  number  and  type  of  weapons  is  expected.  The  module  MAIN 
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1-2 

1 

3-4 

2 

5 

3 

6 

3 

7 

5 

accepts  the  input  of  the  first  six  guns  and  one  SAM  site  and  assigns  a 
seventh  gun  location.  The  module  PRESET  assigns  the  guns  the  following 
description: 

GUN         TYPE         MODE 

1 
1 
4 
3 
3 

To  change  this  assignment,  the  module  MAIN  must  be  modified  to  accept  and 
display  the  additional  information  and  PRESET  must  be  rewritten  to 
recognize  varying  numbers  and  types  of  weapon  sites. 

B.   THE  KEYBOARD  VERSION  (KBPIP) 

The  keyboard  version  was  written  to  operate  on  any  keyboard  terminal. 
To  a  large  extent,  this  was  simply  a  matter  of  removing  the  graphics 
functions  from  GRPIP.  Modules  that  had  only  graphics  functions  were  not 
eliminated,  but  were  converted  into  stubs.  The  remainder  of  this  section 
will  describe  the  changes  to  the  modules  in  KBPIP  that  are  necessary  for 
conversion. 

1.  MAIN 

This  module  had  to  notify  module  XYZIN  whether  it  was  expecting 

weapon  or  milestone  information.  A  parameter  was  added  to  XYZIN,  with  an 

0  indicating  weapon  input  and  a  1  for  milestone  data. 

2.  ERRMK 

This  module  contains  messages  that  were  previously  written  on 
the  screen  by  SCENE.   It  uses  FORTRAN  WRITE  statements  to  notify  the 
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user,  rather  than  highlighting  a  previously  written  message.   In  addition, 
the  input  data  is  echo  printed  to  assist  the  user,  since  this  function 
was  automatic  in  the  graphic  version. 

3.  PTHPLT 

This  module  now  writes  a  message  indicating  that  the  milestone 
has  been  accepted  as  valid. 

4.  GUNLOC,  WIN 

These  modules  are  now  simply  stubs. 

5.  SPOT 

This  module  now  uses  READ  and  WRITE  rather  than  cursor  inputs. 
This  means  that  it  must  be  able  to  identify  what  type  of  data  is  expected 
in  order  to  write  the  appropriate  prompts.  The  parameter  LI  is  sent  with 
a  value  of  0  to  indicate  that  X  and  Y  are  to  be  read,  and  a  value  of  1 
indicates  that  the  value  of  L2  must  be  checked.   If  L2  is  0,  the  calling 
routine  expects  only  an  altitude.   If  it  is  1,  the  calling  routine 
expects  an  altitude,  velocity,  and  command.  The  module  must  then  convert 
the  command  from  the  user's  format  to  that  used  by  MAIN. 

6.  SCENE 

The  entire  map  drawing  function  has  been  eliminated.  When  called 
during  reset,  the  module  prints  the  data  for  the  last  milestone  retained 
by  the  user,  to  assist  in  the  selection  of  the  values  for  subsequent  points 

7.  XYZIN 

The  module  is  sent  the  parameter  IV.   It  uses  the  value  of  this 
parameter  to  determine  whether  the  calling  routine  needs  only  X,  Y,  and  Z 
coordinates,  or  X,  Y,  Z  coordinates,  velocity  data,  and  a  command.   It 
passes  this  information  to  SPOT  via  parameters  LTR,  LTR2,  and  LDM. 
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8.  BEGIN 

The  initialization  of  graphics  routines  has  been  eliminated. 

9.  AIMPT 

This  module  now  gives  the  distance  to  the  target  and  how  much 
the  current  X  and  Y  values  must  be  changed  to  align  the  flight  path 
correctly. 

10.  ELFIN 

The  release  of  the  graphics  resources  has  been  eliminated. 

11.  CONCHG 

The  screen  clearing  command  is  no  longer  required. 

C.  THE  IBM  GRAPHICS  VERSION  (IBMPIP) 

The  IBM  graphics  version,  with  its  dual  screens,  was  to  a  certain 
extent  a  merger  of  the  PLOT-10  and  keyboard  versions.  The  necessary 
changes  are  described  below. 

1.  PTHPLT,  GUNLOC,  SCENE,  WIN,  ELFIN,  AIMPT,  SPOT 

IBM  functions  are  substituted  for  equivalent  PLOT-10  functions. 

2.  BEGIN 

New  screen  coordinates  are  used.   In  addition,  the  qraphics 
initialization  and  screen  erasing  functions  are  moved  from  the  beginning 
to  the  end  of  the  module. 

3.  CONCHG 

The  screen  clearing  function  is  eliminated. 

4.  ERRMK 

The  module  flashes  a  small  window  on  the  graphics  screen  to 
indicate  a  message  is  on  the  alphanumeric  screen.   It  uses  the 
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alphanumeric  screen  to  write  the  message.   In  addition  to  the  message, 
the  data  input  on  the  most  recent  attempt  is  printed  if  an  error  occurs 


93 


VIII.   MAP  GENERATION 

To  support  the  graphics  capability  of  the  program,  it  was  necessary 
to  provide  a  map  of  the  attack  area  to  the  user.  To  do  this,  it  was 
necessary  to  select  points  on  the  actual  map  and  copy  them  to  a  data  file  for 
later  use.  This  can  be  done  manually  with  rulers  and  pencil,  which  is 
subject  to  all  the  problems  involved  in  properly  marking  and  transferring 
the  data.  An  alternative  was  to  utilize  the  graphics  capability  of  the 
system  to  generate  the  map  information.  To  accomplish  this,  a  program 
called  SCENE  was  written. 

The  prerequisite  to  utilizing  SCENE  is  a  transparency  of  the  desired 
map.  SCENE  expects  a  6  x  4  inch  transparency  representing  an  18,000  x 
12,000  unit  field.  This  can  be  changed  by  changing  the  values  of  MINX, 
MAXX,  MINY  and  MAXY  and  the  values  in  the  DWINDO  call. 

The  program  starts  by  asking  the  user  whether  he  wants  to  create  a 
new  map  or  continue  an  old  one.  A  positive  integer  means  a  new  map,  zero 
or  a  negative  number  indicates  an  old  map.   If  selected,  the  old  map  is 
then  drawn.  The  user  then  places  the  transparency  over  the  map  outline 
drawn  on  the  screen.  Points  are  input  in  the  following  manner.  First, 
the  cursor  is  positioned  under  the  selected  point.  A  key  is  pressed  to 
mark  the  spot.  The  capital  "M"  and  "S"  keys  have  a  particular  meaning. 
The  "M"  key  informs  the  program  that  the  following  call  will  be  a  move, 
not  a  draw.  The  "S"  key  marks  the  final  spot  and  informs  the  program  to 
stop  execution.  All  other  keys  indicate  that  the  next  call  is  a  draw 
command. 
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The  data  is  written  to  a  FORTRAN  data  set  9  using  2F10.2  format.  The 
data  has  the  following  meanings: 

1.  Two  positive  values—these  represent  a  data  point  on  the  map. 

2.  -0.5,  0.0— this  is  a  mark  to  indicate  that  a  move  to  the  coordinates 
in  the  next  entry  is  to  occur. 

3.  -2.0,  0.0--this  is  the  end  of  file  marker.   If  the  user  is  con- 
tinuing work  on  a  map,  it  will  be  necessary  to  erase  the  original 
marker  after  he  finishes  the  current  session.  This  is  done  by 
editing  the  data  file  and  removing  the  first  end  of  file  marker. 

In  addition  to  the  cursor  input,  data  points  can  be  entered  by 
editing  the  file.  This  allows  the  user  to  smooth  curves  by  adding 
intermediate  points  and  to  make  corners  connect  exactly.  One  example  of 
these  capabilities  is  the  drawing  of  the  buildings.  Rather  than  trying 
to  exactly  line  up  the  corners,  only  the  diagonal  defining  the  rectangle 
was  drawn  with  the  cursor.  The  data  file  was  then  edited  to  fill  in  the 
missing  corners.  This  ensured  that  the  corners  were  perpendicular  and 
met  at  the  line  end  points. 
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IX.   PROBLEMS  AND  IMPROVEMENTS 

Two  major  problem  areas  were  encountered  in  terms  of  software  develop- 
ment. The  first  involved  the  utilization  of  graphics  resource  drivers 
and  the  second  was  version  control.  A  major  problem  with  the  PLOT-10 
graphics  package  is  that  there  are  errors  in  the  Naval  Postgraduate 
School's  implementation  of  several  of  the  translation  tables.  As  a 
result,  the  system  will  occasionally  become  highly  erratic;  drawing 
random  lines  over  the  entire  screen,  or  reading  incorrect  values  from  the 
cursor.  This  erratic  behavior  was  the  original  reason  the  verification 
input  was  included  in  the  graphics  sequence.  This  problem  remains 
uncorrected. 

The  major  difficulty  with  the  IBM  graphics  package  was  the  lack  of 
familiarity  with  the  package  on  the  part  of  computer  center  personnel. 
The  package  was  installed  in  April  1982,  and  the  only  documentation 
available  was  the  IBM  technical  manual.   Implementing  IBMPIP  was, 
therefore,  limited  to  using  those  functions  which  could  be  easily  iden- 
tified, primarily  the  bridge  functions.  Therefore,  it  was  not  possible 
to  utilize  the  extensive  capabilities  of  the  package.  As  more  experimenta- 
tion with  the  package  is  afforded,  the  capabilities  of  this  package 
should  be  enhanced.   In  addition,  there  are  plans  to  obtain  a  core 
graphics  system  which  will  support  TEKTRONIX,  IBM,  and  VERSATEC  plotting 
routines  in  a  device-independent  manner.  This  means  that  the  user  will 
be  able  to  use  high-level  graphic  functions.  These  will  execute  equally 
well  on  all  three  systems  and  the  device-specific  calls  will  be  generated 
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by  the  high-level  functions  at  execution  time.   If  the  programmer  wishes 
to  use  the  unique  capabilities  of  a  particular  device,  such  as  cursor 
redefinition  in  the  IBM  package,  he  will  still  have  to  use  the  functions 
specifically  dedicated  to  that  device. 

Since  the  core  system  was  not  available,  the  two  graphics  systems 
required  separate  software  versions  to  execute  on  their  respective  hard- 
ware.  The  non-graphics  keyboard  implementation  required  a  third  version. 
This  caused  a  significant  management  problem.  What  was  a  simple  change 
on  one  system  was  frequently  difficult  on  another.  For  instance, 
correction  of  errors  when  milestones  were  read  from  the  disk  was  quite 
simple  to  accomplish  with  the  keyboard  version.  The  prompt  was  displayed, 
the  response  was  accepted,  and  the  appropriate  action  was  carried  out. 
Once  this  was  tested,  the  source  statements  were  copied  into  IBMPIP  and 
checked  out.  This,  too,  went  well.  However,  the  change  to  GRPIP  was 
extremely  difficult.  First,  the  message  had  to  be  added  to  the  message 
list  in  SCENE,  as  opposed  to  ERRMK  in  the  other  two  versions.   ERRMK  had 
to  be  changed  to  accommodate  a  new  error  location.  Finally,  the  location 
of  the  various  error  messages  had  to  be  rearranged  four  times  before  one 
was  found  that  did  not  result  in  the  new  message  overwriting  another 
message.   Similar  problems  occurred  when  converting  graphic  to  non-graphic 
techniques.   Although  the  functions  are  identical  in  each  version,  most 
changes  in  the  program  resulted  in  three  similar,  but  unique,  changes  in 
the  implementation.  When  the  time  required  to  recompile  and  test  these 
versions  is  considered,  a  simple  change  for  cosmetic  effects  rapidly 
loses  its  desirability. 
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Although  not  as  difficult  an  obstacle  as  the  software,  the  hardware 
did  pose  a  problem.  The  capabilities  of  a  storage  tube  device  severely 
limited  the  alphanumeric  interaction  with  the  user.  The  first  problem 
arose  with  GRPIP,  which  was  how  to  write  messages  to  the  user  without 
destroying  the  graphic  display  or  overwriting  a  previous  message.  The 
solution  was  to  write  all  possible  messages  beforehand  and  then  identify 
their  location  on  the  screen  for  later  use.  This  in  turn  meant  a  trade- 
off between  a  display  large  enough  to  be  useful  while  retaining  sufficient 
working  space  for  writing  the  messages.  With  the  availability  of  the  IBM 
package,  this  problem  was  significantly  reduced.  With  the  second  screen, 
alphanumeric  interaction  was  relatively  simple.  The  problem  then  became 
one  of  how  to  notify  the  user  to  change  input  screens.  This  was  solved 
by  adding  an  attention  window,  which  flashed  to  inform  the  user  that 
something  was  occurring  on  the  other  screen. 

There  are  several  improvements  that  can  be  made  to  increase  the 
program's  utility.  A  major  improvement  would  be  to  use  the  data  input  by 
the  user  to  derive  several  intermediate  milestones.  A  quick  way  to  do 
this  would  be  to  use  the  averages  already  computed  to  create  additional 
milestones.  A  better  way  would  use  the  operator's  input  and  computed 
averages  to  fit  a  curve  to  the  points  if  desired  by  the  user.  Additional 
milestones  would  then  be  created  by  selecting  intermediate  points  on  the 
curve.   In  addition  to  smoothing  the  flight  path,  realism  could  be 
enhanced  by  providing  for  terrain  masking.  P001  provides  for  gun  masking 
arcs  and  if  the  terrain  was  identified  as  geometric  shapes,  chopped  conic 
mountains  and  a  polynomial  river  for  example,  these  arcs  could  be  computed 
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In  addition  to  increased  realism,  the  program  could  be  improved 
by  adding  flexibility  to  the  weapon  and  aircraft  descriptions.  The 
present  program  utilizes  a  fixed  number  of  weapons  firing  at  a  particular 
type  of  aircraft.  This  was  necessary  to  limit  the  action  required  by  the 
students  using  the  program.  Making  the  number  and  type  of  weapons 
variable  would  require  a  relatively  modest  effort,  but  would  greatly 
expand  the  software's  flexibility.   In  addition,  it  would  improve  the 
realism  of  the  scenario.  P001  only  supports  one  firing  arc  per  gun.  By 
making  the  number  of  guns  variable,  a  single  gun  site  which  has  several 
distinct  firing  arcs  could  be  identified  as  several  guns  at  one  location, 
each  with  different  firing  arcs.  The  aircraft  type  can  be  changed  by 
changing  the  vulnerability  and  radar  cross-section  data  statements. 
Providing  access  to  external  files  to  obtain  this  information  would  also 
expand  the  flexibility  of  the  program. 
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I.   INTRODUCTION 

This  aircraft  attrition  study  is  designed  to  present  the  student  with 
an  opportunity  to  see  first-hand  how  the  survivability  of  an  aircraft  can 
be  evaluated  in  a  given  combat  scenario.  The  methods  employed  in  this 
study  are  those  used  by  both  industry  and  government  when  making  decisions 
in  the  survivability  analysis  and  design  of  an  aircraft  weapon  system. 
In  this  study,  one  computer  program  named  P001  (the  AFATL  Antiaricraft 
Artillery  Simulation  Computer  Program)  will  be  used  to  simulate  the 
flight  of  a  typical  Naval  attack  aircraft  through  a  hostile  antiaircraft 
artillery  (AAA)  environment  and  to  compute  the  aircraft  probability  of 
survival.  Another  computer  program,  MICE  II  (the  Missile  intercept 
C_apabil  ity  Evaluation  Program),  will  be  used  to  compute  the  survivability 
of  the  aircraft  on  the  same  flight  path  against  a  typical  short-  to 
medium-range  surface-to-air  missile  (SAM). 


The  DoD  specifies  the  use  of  P001  and  MICE  in  all  nonnuclear 
survivability  assessments  in  MIL-STD-2069,  REQUIREMENTS  FOR  AIRCRAFT 
NONNUCLEAR  SURVIVABILITY  PROGRAM,  24  August  1981. 
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II.   PROBLEM  DEFINITION 

A.  You  are  going  to  conduct  a  survivability  assessment  of  a  familiar 
Naval  aircraft,  shown  in  Figs.  1  and  2,  on  a  typical  attack  mission 
to  destroy  the  bridge  shown  in  Fig.  3. 

B.  The  class  will  be  divided  into  groups  of  four,  with  two  members  in 
each  group  on  the  blue  team  and  two  members  on  the  red  team. 

C.  Each  team  will  use  P001  and  MICE  II  to  determine  the  survivability 
of  the  aircraft  in  the  class  problem  scenario,  as  follows: 

1.  Each  team  will  select  a  flight  path  to  the  bridge  according  to 
the  rules  of  the  scenario  given  in  Section  IV.  Keep  this  path  a 
secret. 

2.  Each  team  will  also  select  the  locations  of  six  AAA  emplacements 
and  one  SAM  that  will  defend  the  bridge  against  an  air  attack. 
Locate  the  weapons  according  to  the  order  of  battle  given  in 
Section  IV.  Keep  these  locations  secret,  also. 

3.  Each  team  will  conduct  an  attack  against  the  other  team  in  the 
group. 

4.  The  input  data  file  for  the  computer  runs  for  the  blue  team 
attacking  the  bridge  defended  by  the  red  team  will  consist  of  the 
flight  path  of  the  blue  aircraft  flying  through  the  AAA  and  SAM 
emplacements  selected  by  the  red  team. 

5.  Conversely,  the  input  data  file  for  the  computer  runs  by  the 

red  team  against  the  blue  team  will  consist  of  the  flight  path  of 
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the  red  aircraft  flying  through  the  AAA  and  SAM  emplacements 

selected  by  the  blue  team. 
D.  May  the  best  team  win.  A  small  prize  will  be  awarded  to  the  team 
whose  aircraft  has  the  highest  probability  of  survival  against  their 
opponent's  weapon  distribution. 
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III.   SCENARIO  DESCRIPTION 


This  scenario  is  purely  for  instructional  purposes  and  is  not  based 
on  any  actual  or  planned  combat  attack  situation.  The  target  site, 
order  of  battle,  and  flight  path  and  weapon  delivery  parameter  limits 
have  been  chosen  only  to  provide  guidelines  for  the  class  problem.  As 
much  realism  has  been  introduced  for  the  players  as  possible  while 
retaining  an  unclassified  scenario. 
Your  target  is  the  bridge  shown  in  Fig.  3  located  at: 

X:   14,000  meters 

Y:   7,220  meters 

Z:      20  meters 
Heavy  military  supply  traffic  has  been  reported  in  this  area. 
Your  mission  is  to  destroy  this  vital  supply  link. 
The  following  order  of  battle  has  been  gathered  from  intelligence 
reports  of  the  target  area: 

SAM  -  one  site  in  the  vicinity  of  the  target 

AAA  -  two  type  1  mode  1 
two  type  2  mode  1 
one  type  3  mode  4 
one  type  3  mode  3 
one  type  5  mode  3 

(NOTE:  Gun  types  and  their  relationship  to  AAA  and  the  SAM  type 

will  be  discussed  in  class.) 
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0.  The  SAM  threat  requires  that  the  inbound  approach  to  the  target  be 
made  from  the  west  at  low  level.  A  pop-up  maneuver  is  required  to 
visually  identify  the  target  followed  by  a  dive  bombing  run  to  weapon 
delivery.  The  aircraft  ordnance  consists  of  MK82  500-pound  Snakeye 
bombs.  Egress  must  be  made  to  either  the  north  or  south,  depending 
on  individual  strategy. 

E.  The  following  is  a  list  of  scenario  limitations  to  be  used  in  the 
development  of  your  strategy: 

1.  Aircraft  cruise  speed--90  to  220  meters  per  second  (400  to  500 
knots) . 

2.  Inbound  altitude--70  to  450  meters. 

3.  Maneuvering— the  aircraft  is  limited  by  its  thrust,  speed  brakes, 
and  loading.  A  maximum  speed  of  approximately  225  meters/sec  is 
attainable  before  bomb  release,  and  it  increases  to  about  235 
after  weapon  release.  The  thrust  available  and  speed  brakes 
limit  the  amount  of  velocity  can  be  changed.  Combined  with  the 
loading,  they  serve  to  limit  the  amount  of  turn  allowed.   In 
both  cases,  the  longer  the  leg,  the  more  change  can  be  accepted. 

4.  Pop-up  maneuver 

a.  Commence  maneuver--a  maximum  of  6,000  meters  from  the  target. 

b.  Maneuver  altitude — in  order  to  locate  the  target,  you  must 
pop-up  to  a  minimum  altitude  of  1,000  meters. 

5.  Ordinance  delivery 

a.  A  boresighted  glide/dive  delivery  is  required. 

b.  Alignment — the  leg  immediately  prior  to  the  bomb  release 
point  must  be  straight,  last  2.33  seconds,  and  must  have 
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a  heading  within  5°  of  the  heading  to  the  target  from  the 
bomb  release  point. 

c.  Bomb  release  range—between  100  and  1,000  meters  from  the 
target. 

d.  Bomb  release  altitude—between  100  and  2,000  meters. 
6.  Weapons  placement 

a.  Two  type  1  mode  1,  two  type  2  mode  1,  one  type  3  mode  4, 
and  one  type  3  mode  3  weapons  are  available  for  defense 
placement.  Neither  of  the  type  3  weapons  may  be  placed 
within  3,000  meters  of  the  center  of  the  bridge.  A  type  5 
mode  3  weapon  is  fixed  at  (X,  Y,  Z). 

b.  One  type  5  SAM  system  is  to  be  placed  anywhere  on  the  roads 
eastward  of  the  six  kilometer  X  axis  position. 

F.  Begin  the  flight  path  at  an  entry  point  of  your  choosing  along 
the  western  boundary  and  end  it  along  the  northern  or  southern 
boundary.  Anticipate  the  AAA  and  SAM  placement  for  bridge  defense 
and  plan  you  flight  path  accordingly. 

G.  Locate  the  AAA  and  SAM  weapons  given  in  the  order  of  battle  to  best 
defend  the  bridge  against  your  opponent's  attacking  aircraft. 
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IV.   INPUT  DATA  FORMAT 

Three  preprocessor  programs  for  P001  and  MICE  II  are  available 
at  the  Naval  Postgraduate  School.  These  programs  create  the  scenario, 
flight  path,  aircraft  vulnerability,  and  weapon  location  and  character- 
istics data  files  necessary  for  the  execution  of  P001  and  MICE  II.  The 
preprocessing  programs  are  GRPIP  (Graphic  P001/MICE  II  Input  Program), 
KBPIP  (Keyboard  P001/MICE  II  Input  Program)  and  IBMPIP  (IBM  P001/MICE  II 
Input  Program).  GRPIP  is  for  use  on  the  TEKTRONIX  4010  family  of  terminals, 
KBPIP  can  be  used  at  any  keyboard,  and  IBMPIP  runs  on  IBM  3277  graphics 
terminals.  All  of  these  programs  operate  in  the  same  fashion,  only  the 
manner  of  data  entry  is  different. 
A.  PROCEDURE  FOR  EXECUTING  P001  AND  MICE  II 

1.  Log  on  to  VMS 

2.  ENTER:   CP  LINK       191  192  R 

the  message  "ENTER  READ  PASSWORD:"  will  appear 

ENTER: 

ENTER:   ACC  192  B 

a.  If  you  have  never  used  GRPIP  or  IBMPIP,  the  following  file 
contains  the  points  for  drwing  the  scenario  map. 

ENTER:   COPYFILE  MAP  DATA  B  =  =  A 

3.  a.  To  use  GRPIP,  ENTER:  GRPIP 

b.  To  use  KBPIP,  ENTER:  KBPIP 

c.  To  use  IBMPIP,  ENTER:   IBMPIP 

d.  Execute  the  selected  preprocessor  program  (see  the  following 
sections 

4.  To  execute  P001 

a.  XEDIT  file  P001  DATA  and  insert  your  JOB  card  as  the  first 
line  (see  computer  center  manual  MVS-01  pg.  18) 

b.  Then  FILE  P001  DATA 

c.  ENTER:   SUBMIT  P001  DATA 

5.  To  Execute  MICE  II 

a.  XEDIT  MICE  II  DATA  and  insert  your  JOB  card  as  the  first  line, 
line 

b.  Then  FILE  MICE  DATA 

c.  ENTER:   SUBMIT  MICE  DATA 
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B.   EXECUTING  GRPIP  (TEKTRONIX  Terminals  Only) 

NOTE:  The  TEKTRONIX  terminal  at  the  computer  center  does  not 
react  to  the  "RETURN"  button.  Push  "CTRL"  and  "S"  simultaneously  for  a 
carriage  return. 

NOTE:  For  the  terminal  at  the  computer  center,  the  cursor  will 
disappear,  but  the  entry  will  not  be  accepted  when  the  key  is  pressed. 
On  this  terminal,  press  "CTRL"  "S"  after  pressing  a  key  to  enter  the 
data. 

1.  Enter:  GRPIP 

The  following  message  will  appear: 

NOTICE  YOU  ARE  LINKED  TO  491  AS  D  FOR  TEKTRONIC  ROUTINES 

This  is  followed  by  a  delay  as  the  program  loads.  When  loading 
is  complete,  the  message  "EXECUTION  BEGINS"  will  appear,  followed  by  the 
screen  flashing  twice. 

2.  Initialization 

The  program  will  request  data  necessary  to  initialize  the  system, 
The  following  message  will  appear: 

GUNS:  0  =  DISK  FILE;  1  =  TERMINAL  READ;  2  =  PRESET 

a.  FILE:  This  reads  the  file  created  on  a  previous  run  using 
option  1.  Do  not  select  this  option  if  you  have  never  entered  gun  and 
missile  locations  at  the  terminal. 

b.  TERMINAL:  With  this  option  you  enter  your  own  locations. 
The  gun  and  missile  locations  will  be  saved  for  later  use. 

c.  PRESET:  GRPIP  has  preset  gun  and  missile  sites  if  you 
want  to  use  them. 
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The  next  message  you  will  see  will  be: 

MILESTONE  INPUT:  0  =  DISK  FILE;  1  =  TERMINAL 

a.  DISK:  This  reads  a  previously  created  file.  Do  not  use  this 
option  if  you  have  never  run  GRPIP,  KBPIP,  or  IBMPIP. 

b.  TERMINAL:  This  allows  you  to  create  a  new  flight  path. 
When  this  is  done,  the  following  message  will  be  displayed: 

ERROR  CHECKING:  0  =  NO  CHECKING;  1  =  CHECK  FOR  ERRORS 

a.  NO  CHECKING:  With  this  option  game  and  flight  rule  errors 
will  be  ignored. 

b.  CHECK  FOR  ERRORS:  With  this  option,  errors  will  result  in 
the  operator  being  notified  of  the  cause.  When  the  terminal  input  option 
is  in  effect,  the  milestone  data  will  be  ignored  and  new  data  requested. 
If  the  disk  input  option  is  in  effect,  the  user  will  see  the  following 
prompt  if  an  error  occurs  during  execution: 

DO  YOU  WISH  TO  FIX  THE  ERROR:  0  =  NO,  USE  THE  POINT  1  =  YES 

a.  0:  The  program  will  ignore  the  error  and  use  the  data. 

b.  1:  The  program  will  request  new  data  for  the  current  mile- 
stone only.  Subsequent  data  will  be  obtained  from  the  disk.  Note  that 
the  correction  may  cause  errors  in  subsequent  milestones. 

The  next  message  to  appear  will  be: 

FLIGHT  AND  GAME  PARAMETERS:  0  =  DEFAULT;  1  =  USER  INPUT 

a.  DEFAULT:  This  uses  preset  game  and  flight  parameters  for 
error  checking. 

b.  USER  INPUT:  This  allows  the  user  to  reset  error  parameters 
to  reflect  different  game  and  flight  rules.  See  PARAMETER  CHANGING  for 
further  information. 
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3.  Gun  and  Missile  Entry 

Following  initialization,  the  screen  will  go  blank  and  the 
following  message  will  appear: 

VILLAGE:  0  =  NOT  DRAWN;  1  =  VILLAGE  DRAWN 

a.  NOT  DRAWN:  This  option  results  in  only  the  gun,  SAM,  and 
target  locations  being  drawn.  This  saves  a  great  deal  of  time, 
particularly  on  300  BAUD  terminals. 

b.  VILLAGE  DRAWN:  This  option  draws  the  village,  road,  and 
river.   When  inputting  the  gun  and  SAM  sites,  this  option  should  be 
chosen  to  meet  the  game  requirements.  Drawing  the  full  map  takes  about  a 
minute  at  1,200  BAUD  terminals  and  about  5  minutes  at  the  slower  ones. 

If  the  preset  (option  0)  or  file  (option  2)  locations  are 
used  for  the  gun  and  missile  sites,  they  will  be  drawn  immediately.  The 
gun  sites  are  represented  by  a  "+"  surrounded  by  a  dotted  ring  at  the 
engagement  radius.  The  SAM  site  is  a  "+"  with  a  small  circle  around  it. 
The  target  is  a  "+"  with  two  small  circles  around  it.  User  input  of  the 
gun  sites  is  as  follows: 

a.  The  message  ENTER  GUN  COORDINATES  will  be  underlined. 

b.  A  bell  will  sound  and  the  map  border  will  flash. 

c.  A  cursor  will  appear. 

d.  Position  the  cursor  with  the  thumbwheels  on  the  right  of  the 
terminal . 

e.  Press  any  key.  The  cursor  will  disappear,  a  point  will 
appear,  and  the  cursor  will  re-appear.   If  the  cursor  reappears,  but  not 
the  point,  or  if  you  change  your  mind,  press  "N"  to  cancel  the  input. 

f.  Press  any  key  except  "N"  to  accept  the  X  and  Y  values. 
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g.  A  bell  will  ring  and  the  altimeter  border  will  flash. 

h.  Position  the  cursor  in  the  altimeter  and  enter  the  point  as 
above.  Note  that  the  altimeter  is  marked  in  100 's  of  meters. 

i.  Repeat  steps  b-h  five  times.  The  guns  are  input  in  the 
following  order: 

(1)  Two  Type  1  mode  1— 1,000m  engagement  radius 

(2)  Two  Type  2  mode  l--l,400m  engagement  radius 

(3)  One  Type  3  mode  4 — 2,500m  engagement  radius 

(4)  One  Type  3  mode  3--2,500m  engagement  radius 

NOTE:  The  type  3  guns  may  not  be  within  3,000  meters  of  the  target.   If 
you  attempt  this,  the  message  TOO  CLOSE  TO  TGT  will  be  underlined  and  a 
bell  will  ring  several  times.  The  point  will  be  rejected  and  you  will 
have  to  enter  it  again. 

NOTE:  Entering  a  weapon  (gun  or  missile)  altitude  greater  than  1,000 
meters  will  abort  the  program  and  destroy  a  previously  created  GUN  LOC  file. 

When  all  six  gun  sites  are  correctly  entered,  the  message  ENTER 
MISSILE  LOCATION  will  be  underlined.  Repeat  steps  b-h. 
NOTE:  The  X  coordinate  must  be  greater  than  6,000  meters  or  the  error 
message  X  COORDINATE  <  6,000  will  be  presented. 
4.  Milestone  Entry 

When  you  have  finished  entering  the  gun  and  missile  sites,  the  bell 
will  ring  and  the  message  ENTER  MILESTONES  will  be  highlighted  in  the  error 
section.   Enter  milestones  using  steps  3. b-h  with  the  following  exceptions: 

a.  Pressing  "A":  This  signifies  that  an  aiming  line  is  desired. 
A  dashed  line  to  the  target  will  appear  to  assist  in  lining  up  for  the 
bomb  release  leg. 
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b.  Pressing  "B":  This  signifies  the  bomb  release  milestone. 

c.  Pressing  "R":  This  resets  the  problem.  The  screen  will  go 
blank  and  you  will  be  asked  the  milestone  at  which  to  reset  the  flight 
path.  This  destroys  the  map  and  it  must  be  redrawn.  This  can  cause  a 
long  wait  at  the  slow  terminals. 

d.  Pressing  "S":  This  stops  the  program.  The  point  is  plotted, 
but  not  checked  for  errors. 

The  special  keys  must  be  pressed  when  the  point  is  verified, 
not  when  it  is  first  selected. 

e.  The  velocity  must  be  entered  for  each  milestone.  The  hori- 
zontal axis  of  the  altimeter  is  velocity.  The  tic  marks  are  at  50 
meter/sec  intervals  from  50  to  300  meter/sec.   If  error  checking  is  used, 
the  minimum  speed  is  90  meter/sec.  Velocity  is  limited  to  260  meter/sec 
before,  and  310  meter/sec  after  bomb  release.  Any  time  a  game  rule 

or  flight  path  error  is  detected,  the  error  will  be  marked  by  underlining 
and  ringing  the  bell.  Whenever  an  error  occurs,  the  X/Y/Z  and  velocity 
values  are  rejected.  The  Bomb,  Reset,  and  Stop  commands  take  priority 
over  errors  while  the  Aim  is  executed  only  at  legal  milestones.  This 
means  that  the  operator  can  always  stop  or  reset  the  program. 

f.  Repeat  steps  1-d  until  all  milestones  are  entered.  See 
Section  E  (Output  Selection)  to  finish  the  program. 

C.   EXECUTING  KBPIP 
1.  Enter:  KBPIP 

The  terminal  will  display  the  file  definitions  for  KBPIP. 
This  is  followed  by  a  delay  as  the  program  loads.  When  loading  is 
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complete,  the  message  "EXECUTION  BEGINS"  will  appear,  followed  by  the 
screen  clearing. 

2.   Initialization 

The  program  will  request  data  necessary  to  initialize  the  system. 
The  following  message  will  appear: 

GUNS:  0  =  DISK  FILE;  1  =  TERMINAL  READ;  2  =  PRESET 

a.  FILE:  This  reads  the  file  created  on  a  previous  run  using 
option  1.  Do  not  select  this  option  if  you  have  never  entered  gun  and 
missile  locations  at  the  terminal. 

b.  TERMINAL:  With  this  option  you  enter  your  own  locations. 
The  gun  and  missile  locations  will  be  saved  for  later  use. 

c.  PRESET:  GRPIP  has  preset  gun  and  missile  sites  if  you 
want  to  use  them. 

The  next  message  you  will  see  will  be: 

MILESTONE  INPUT:  0  =  DISK  FILE;  1  =  TERMINAL 

a.  DISK:  This  reads  a  previously  created  file.  Do  not  use  this 
option  if  you  have  never  run  GRPIP,  KBPIP,  or  IBMPIP. 

b.  TERMINAL:  This  allows  you  to  create  a  new  flight  path. 
When  this  is  done,  the  following  message  will  be  displayed: 

ERROR  CHECKING:  0  =  NO  CHECKING;  1  =  CHECK  FOR  ERRORS 

a.  NO  CHECKING:  With  this  option  game  and  flight  rule  errors 
will  be  ignored. 

b.  CHECK  FOR  ERRORS:  With  this  option,  errors  will  result  in 
the  operator  being  notified  of  the  cause.  When  the  terminal  input  option 
is  in  effect,  the  milestone  data  will  be  ignored  and  new  data  requested. 
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If  the  disk  input  option  is  in  effect,  the  user  will  see  the  following 
prompt  if  an  error  occurs  during  execution: 

DO  YOU  WISH  TO  FIX  THE  ERROR:  0  =  NO,  USE  THE  POINT  1  =  YES 

a.  0:  The  program  will  ignore  the  error  and  use  the  data. 

b.  1:  The  program  will  request  new  data  for  the  current  mile- 
stone only.  Subsequent  data  will  be  obtained  from  the  disk.  Note  that 
the  correction  may  cause  errors  in  subsequent  milestones. 

The  next  message  to  appear  will  be: 

FLIGHT  AND  GAME  PARAMETERS:  0  =  DEFAULT;  1  =  USER  INPUT 

a.  DEFAULT:  This  uses  preset  game  and  flight  parameters  for 
error  checking. 

b.  USER  INPUT:  This  allows  the  user  to  reset  error  parameters 
to  reflect  different  game  and  flight  rules.  See  PARAMETER  CHANGING  for 
further  information. 

3.  Gun  and  Missile  Entry 

If  preset  (option  0)  or  file  (option  2)  locations  are  used,  the 
gun  and  missile  sites  will  be  automatically  entered.  User  input  of  the 
gun  sites  is  as  follows: 

a.  The  message  ENTER  GUN  LOCATIONS  will  appear,  followed  by: 

b.  ENTER  X  AND  Y  COORDINATES. 

c.  Enter  the  desired  values. 

d.  The  message  ENTER  ALTITUDE  will  appear. 

e.  Enter  the  desired  altitude. 

f.  Repeat  b-e  five  times.  The  guns  are  input  in  the  following 
order: 
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(1)  Two  Type  1  mode  1--  1,000m  engagement  radius 

(2)  Two  Type  2  mode  1— 1,400m  engagement  radius 

(3)  One  Type  3  mode  4--2,500m  engagement  radius 

(4)  One  Type  3  mode  3--2,500m  engagement  radius 

NOTE:  The  type  3  guns  may  not  be  within  3,000  meters  of  the  target.   If 
you  attempt  this,  the  message  TOO  CLOSE  TO  TGT  will  be  displayed.  The 
point  will  be  rejected  and  you  will  have  to  enter  it  again. 
NOTE:  Entering  a  weapon  (gun  or  missile)  altitude  greater  than  1,000 
meters  will  abort  the  program  and  destroy  a  previously  created  GUN  LOC  file, 

When  all  six  gun  sites  are  correctly  entered,  the  message  ENTER 
MISSILE  LOCATION  will  be  displayed.  Repeat  steps  b-e. 
NOTE:  The  X  coordinate  must  be  greater  than  6,000  meters  or  the  error 
message  X  COORDINATE  <  6,000  will  be  presented. 
4.  Milestone  Entry 

When  you  have  finished  entering  the  gun  and  missile  sites,  the 
message  ENTER  MILESTONES  will  be  displayed.  Enter  milestones  using  the 
following  steps: 

a.  The  message  ENTER  X  AND  Y  COORDINATES  will  be  displayed. 

b.  Enter  the  desired  coordinates. 

c.  The  message  ENTER  ALT.,  VEL.,  AND  COMMAND:  0  =  NONE; 
1  =  AIM;  2  =  BOMB;  3  =  RESET;  4  =  STOP  will  then  appear. 

d.  Enter  the  desired  velocity  and  command.  The  results  of 
commands  are: 

(0)  NONE:  no  special  action  occurs. 

(1)  AIM:   This  will  provide  the  distance  to  the  target  and 
the  X  and  Y  components  for  100  meters  along  the  aiming  line. 

118 


(2)  BOMB:  The  bomb  release  rules  are  checked. 

(3)  RESET:  The  program  will  ask  you  at  what  point  you  want 
to  reset  the  program.   If  selected  point  is  before  the  bomb  release 
point,  the  release  checks  will  be  cancelled. 

(4)  STOP:  The  final  milestone  is  accepted  and  milestone 
input  terminates.   If  this  command  is  given  on  the  first  milestone,  the 
program  will  stop  immediately,  otherwise  the  new  milestone  file  is 
written  and  output  options  are  requested  before  stopping.  See  Section  E. 

Any  time  a  game  rule  error  is  detected,  the  error  will  be  dis- 
played. Whenever  an  error  occurs,  the  X/Y/Z/VEL  values  are  rejected.  The 
Bomb,  Reset,  and  Stop  commands  take  priority  over  an  error,  while  the  Aim 
command  will  be  accepted  only  at  legal  milestones.  This  means  the 
operator  can  always  get  out  by  executing  a  Stop. 
D.  EXECUTING  IBMPIP  (TEKTRONIX  Terminals  Only) 

1.  Enter:   IBMPIP 

The  following  message  will  appear:   EXECUTION  BEGINS. 

This  is  followed  by  a  delay  as  the  program  loads.  When  loading 
is  complete,  the  message  "EXECUTION  BEGINS"  will  appear,  followed  by  the 
screen  flashing  twice. 

2.  Initialization 

The  program  will  request  data  necessary  to  initialize  the  system. 

The  following  message  will  appear: 

GUNS:  0  =  DISK  FILE;  1  =  TERMINAL  READ;  2  =  PRESET 

a.   FILE:  This  reads  the  file  created  on  a  previous  run  using 

option  1.  Do  not  select  this  option  if  you  have  never  entered  gun  and 

missile  locations  at  the  terminal. 
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b.  TERMINAL:  With  this  option  you  enter  your  own  locations. 
The  gun  and  missile  locations  will  be  saved  for  later  use. 

c.  PRESET:  GRPIP  has  preset  gun  and  missile  sites  if  you 
want  to  use  them. 

The  next  message  you  will  see  will  be: 

MILESTONE  INPUT:  0  =  DISK  FILE;  1  =  TERMINAL 

a.  DISK:  This  reads  a  previously  created  file.  Do  not  use  this 
option  if  you  have  newer   run  GRPIP,  KBPIP,  or  IBMPIP. 

b.  TERMINAL:  This  allows  you  to  create  a  new  flight  path. 
When  this  is  done,  the  following  message  will  be  displayed: 

ERROR  CHECKING:   0  =  NO  CHECKING;  1  =  CHECK  FOR  ERRORS 

a.  NO  CHECKING:  With  this  option  game  and  flight  rule  errors 
will  be  ignored. 

b.  CHECK  FOR  ERRORS:  With  this  option,  errors  will  result  in 
the  operator  being  notified  of  the  cause.  When  the  terminal  input  option 
is  in  effect,  the  milestone  data  will  be  ignored  and  new  data  requested. 
If  the  disk  input  option  is  in  effect,  the  user  will  see  the  following 
prompt  if  an  error  occurs  during  execution: 

DO  YOU  WISH  TO  FIX  THE  ERROR:  0  =  NO,  USE  THE  POINT  1  =  YES 

a.  0:  The  program  will  ignore  the  error  and  use  the  data. 

b.  1:  The  program  will  request  new  data  for  the  current  mile- 
stone only.  Subsequent  data  will  be  obtained  from  the  disk.  Note  that 
the  correction  may  cause  errors  in  subsequent  milestones. 

The  next  message  to  appear  will  be: 

FLIGHT  AND  GAME  PARAMETERS:  0  =  DEFAULT;  1  =  USER  INPUT 
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a.  DEFAULT:  This  uses  preset  game  and  flight  parameters  for 
error  checking. 

b.  USER  INPUT:  This  allows  the  user  to  reset  error  parameters 
to  reflect  different  game  and  flight  rules.  See  PARAMETER  CHANGING  for 
further  information. 

3.  Gun  and  Missile  Entry 

Following  initialization,  the  screen  will  go  blank  and  the 
following  message  will  appear: 

VILLAGE:  0  =  NOT  DRAWN;  1  =  VILLAGE  DRAWN 

a.  NOT  DRAWN:  This  option  results  in  only  the  gun,  SAM,  and 
target  locations  being  drawn.  This  saves  a  great  deal  of  time, 
particularly  on  300  BAUD  terminals. 

b.  VILLAGE  DRAWN:  This  option  draws  the  village,  road,  and 
river.  When  inputting  the  gun  and  SAM  sites,  this  option  should  be 
chosen  to  meet  the  game  requirements.  Drawing  the  full  map  takes  about  a 
minute  at  1,200  BAUD  terminals  and  about  5  minutes  at  the  slower  ones. 

If  the  preset  (option  0)  or  file  (option  2)  locations  are 
used  for  the  gun  and  missile  sites,  they  will  be  drawn  immediately.  The 
gun  sites  are  represented  by  a  "+"  surrounded  by  a  dotted  ring  at  the 
engagement  radius.  The  SAM  site  is  a  "+"  with  a  small  circle  around  it. 
The  target  is  a  "+"  with  two  small  circles  around  it.  User  input  of  the 
gun  sites  are  as  follows: 

a.  The  message  ENTER  GUN  COORDINATES  will  be  displayed.  Press 
the  "CLEAR"  key  on  the  upper  left  part  of  the  keyboard. 

b.  The  map  border  will  flash  and  a  cursor  will  appear. 
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c.  Position  the  cursor  with  the  joystick  on  the  right  of  the 
terminal . 

d.  Press  any  light  grey  key.  The  cursor  will  disappear,  a  point 
will  appear,  and  the  cursor  will  re-appear. 

e.  Press  any  PF  key  to  accept  the  X  and  Y  values,  press  a  grey 
key  to  reject  it.  Repeat  d.  and  e.  if  the  point  is  rejected. 

f.  The  altimeter  border  will  flash. 

g.  Position  the  cursor  in  the  altimeter  and  enter  the  point  as 
above.  Note  that  the  altimeter  is  marked  in  100' s  of  meters. 

h.  Repeat  steps  b-h  five  times.  The  guns  are  input  in  the 
fol lowing  order: 

(1)  Two  Type  1  mode  1 — 1,000m  engagement  radius 

(2)  Two  Type  2  mode  1 — 1,400m  engagement  radius 

(3)  One  Type  3  mode  4--2,500m  engagement  radius 

(4)  One  Type  3  mode  3 — 2,500m  engagement  radius 

NOTE:  The  type  3  guns  may  not  be  within  3,000  meters  of  the  target.   If 
you  attempt  this,  the  message  TOO  CLOSE  TO  TGT  will  be  underlined  and  a 
bell  will  ring  several  times.  The  point  will  be  rejected  and  you  will 
have  to  enter  it  again. 

NOTE:  Entering  a  weapon  (gun  or  missile)  altitude  greater  than  1,000 
meters  will  abort  the  program  and  destroy  a  previously  created  GUN  LOC  file, 

When  all  six  gun  sites  are  correctly  entered,  the  message  ENTER 
MISSILE  LOCATION  will  appear.  Press  the  "CLEAR"  key  and  repeat  steps 
b-g. 

NOTE:  The  X  coordinate  must  be  greater  than  6,000  meters  or  the  error 
message  X  COORDINATE  <  6,000  will  be  presented. 
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4.  Milestone  Entry 

When  you  have  finished  entering  the  gun  and  missile  sites,  the 
bell  will  ring  and  the  message  ENTER  MILESTONES  will  appear  on  the  IBM 
terminal.  Press  "CLEAR."  Enter  milestones  using  steps  3.b-h  with  the 
following  exceptions: 

a.  Pressing  "PF1":  This  signifies  that  an  aiming  line  is 
desired.  A  dashed  line  to  the  target  will  appear  to  assist  in  lining  up 
for  the  bomb  release  leg. 

b.  Pressing  "PF2":  This  signifies  the  bomb  release  milestone. 

c.  Pressing  "PF3":  This  resets  the  problem.  The  screen  will  go 
blank  and  you  will  be  asked  the  milestone  at  which  to  reset  the  flight 
path.  This  destroys  the  map  and  it  must  be  redrawn.  This  can  cause  a 
long  wait  at  the  slow  terminals. 

d.  Pressing  "PF4" :  This  stops  the  program.  The  point  is  plotted, 
but  not  checked  for  errors. 

The  special  keys  must  be  pressed  after  the  dot  has  appeared. 
Press  PF  keys  5-12  to  accept  the  pooint  without  any  special  option 
selected. 

e.  The  velocity  must  be  entered  for  each  milestone.  The  hori- 
zontal axis  of  the  altimeter  is  velocity.  The  tic  marks  are  at  50 
meter/sec  intervals  from  50  to  300  meter/sec.   If  error  checking  is  used, 
the  minimum  speed  is  90  meter/sec.  Velocity  is  limited  to  260  meter/sec 
before,  and  310  meter/sec  after  bomb  release.  Any  time  a  game  rule 

or  flight  path  error  is  detected,  the  error  will  be  marked  by  a  thin 
rectangle  flashing  on  the  right  side  of  the  graphics  screen.  The  error 
message  will  appear  on  the  IBM  screen.  Press  "CLEAR"  and  resume  entering 
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milestones.  Whenever  an  error  occurs,  the  X/Y/Z  and  velocity  values  are 
rejected.  The  Bomb,  Reset,  and  Stop  commands  take  priority  over  errors 
while  the  Aim  is  executed  only  at  legal  milestones.  This  means  that  the 
operator  can  always  stop  or  reset  the  program. 

E.  OUTPUT  SELECTION  (ALL  VERSIONS) 

When  new  milestones  or  weapons  have  been  entered,  the  program  writes 
them  to  disk  file  PTS  LOC  for  later  use.   If  a  new  fliqht  path  was 
created,  the  program  then  displays: 

ARE  YOU  FINISHED  WITH  THIS  FLIGHT  PATH:  0  =  NO;  1  =  YES 

a.  NO:  This  marks  the  data  with  an  end  of  data  command.  When  read 
by  GRPIP,  KBPIP,  or  IBMPIP,  no  further  points  can  be  added. 

b.  YES:  This  marks  the  file  with  a  continuation  command.  When 
GRPIP,  IBMPIP,  or  KBPIP  finish  reading  the  file  on  a  later  run,  they  will 
ask  the  operator  to  continue  entering  milestones. 

The  computer  then  prints: 

OUTPUT  FILE:  0  =  NO  OUTPUT;  1  =  POOl  FILE  ONLY; 

2  =  MICE  FILE  ONLY;  3  =  POOl  &  MICE  FILES 
The  POOl  file  is  located  on  your  disk  as  POOl  DATA  and  the  MICE  file 
is  called  MICE  DATA. 

F.  HARD  COPY 

There  are  three  methods  of  obtaining  a  hard  copy  of  the  flight 
path  and  weapon  sites.  The  first  uses  the  TEKTRONIX  plotter,  the  second 
uses  the  VERSATEC  plotter,  and  the  third  uses  the  TEKTRONIX  hard  copy 
device. 

To  use  the  TEKTRONIX  plotter,  it  is  necessary  to  connect  the  TEKTRONIX 
terminal  to  the  plotter  and  then  to  the  modem.  Set  the  corners  and  then 
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leave  the  plotter  on  LOAD.  Before  the  final  milestone  is  entered,  press 
"R"  for  the  reset  option.   After  the  request  for  starting  point  is 
printed,  take  the  plotter  out  of  LOAD.  The  plotter  will  plot  the  mile- 
stones, weapon  sites,  and,  if  requested,  the  village.  Finish  inputting 
the  last  milestone.  The  plotter  will  plot  the  final  milestones.  Before 
the  output  selection  is  started,  set  the  plotter  back  to  LOAD  and  finish 
running  the  program. 

To  use  the  VERSATEC  plotter,  two  methods  are  available.  First,  a  map 
of  the  scenario  only  can  be  made.  The  other  option  is  to  get  a  complete 
plot  of  the  scenario,  milestones,  and  weapon  sites. 

To  get  only  the  map,  perform  the  following  steps: 

a.  ENTER:   COPY  VERSA  PLOT  B  =  =  A. 

b.  XEDIT  VERSA  PLOT  and  put  your  JOB  card  in  as  the  first  entry. 

c.  FILE  VERSA  PLOT. 

d.  ENTER:   SUBMIT  VERSA  PLOT. 

To  get  a  complete  drawing,  perform  the  following: 

a.  ENTER:   COPY  HDR  DATA  B  PTS  LOC  A  PLOT  MAP  A. 

b.  XEDIT  PLOT  MAP  and  put  your  JOB  card  in  as  the  first  entry  and  /* 
as  the  final  one. 

c.  FILE  PLOT  MAP. 

d.  ENTER:   SUBMIT  PLOT  MAP. 

The  VERSATEC  maps  can  be  picked  up  at  the  computer  center  printer 
room. 

The  TEKTRONIX  hard  copy  device   is  \/ery  simple  to  use.     Turn    it  on 
and  allow  it  to  warm  up,   about  15  minutes.     This  warm-up  can  be  done 
while  you   are  running  GRPIP  or   IBMPIP.     When  you  want   a  copy,   press  the 
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button  marked  COPY.  You  will  see  a  vertical  line  sweep  across  the 

terminal  screen.   Soon  after  this,  the  hard  copy  device  will  provide  your 

copy.   Several  copies  may  be  necessary  to  properly  adjust  the  intensity. 

On  the  622  (IBMPIP)  terminal,  this  intensity  can  also  be  adjusted  using 

the  knob  on  the  bottom  right  part  of  the  terminal  marked  HARD  COPY 

INTENSITY. 

G.   CHANGING  PARAMETERS 

When  this  option  is  selected,  the  following  message  will  appear: 

SELECT  PARAMETER  TO  BE  CHANGED:   1  =  NO  MORE  CHANGES 
2  =  MAX  LIFT  COEFF:  3  =  WING  LOADING;  4  =  STALL  SPEED 
5  =  MAX  G  FORCE;  6  =  MIN  ALT;  7=  MAX  ALT  (<  2,200  MTR) 

8  =  DISTANCE  TO  TARGET  BEFORE  POPUP  ALLOWED 

9  =  MAX  APPROACH  ALT;  10  =  MAX  T/W  RATIO;  11  =  DRAG  COEFF.  W/0  LIFT 
12  =  LIFT  DRAG  CONSTANT;  13  =  MAX  SPD  WITH  BOMB 

14  =  MAX  SPD  W/0  BOMB;  15  =  TARGET  COORDINATES 
16  READ  PARAMETER  FILE;  17  =  LIST  PARAMETERS 

Enter  the  desired  value.   If  a  number  between  2  and  5  is  selected, 

another  prompt  will  appear.  Enter  the  desired  value.   If  16  is  chosen, 

disk  file  PAR  SAV  will  be  read;  do  not  choose  this  option  if  you  have 

never  changed  parameters.  A  17  will  list  the  current  values  of  the 

parameters.  To  exit,  select  a  1.  This  will  write  the  current  parameter 

values  to  PAR  SAV  and  return  to  the  main  program. 
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APPENDIX  B 
GRPIP  PROGRAM  LISTING 


COMMON    /LOC/X1  ,  Y1  ,Z  1  ,  V 1 ,  LTR,  LT  R2  T3 

COMMON/MN/   IBAUD,MINY. MAXY, MIN X,M AXX . MINI ,MAX1  T3 

COMMON/PAR/X  (2  00)  .  Y  (200J  ,  Z  (2  00  )  ,  HD3  [  200[  ,  CA  (20  0)  ,R  A  (20  0)  ,  7 EL  (200)  T3 

COMMON/PAR 1/XDOT  (20  0) - YDOT  (2  00 ) ,ZDOT  (2  00)  , MNUS , MBR  T3 

COMMON/PAR2/T  (200)  ,  XGUN(7)  ,YGUN(7)  ,ZGUN(7)  ,  XSAM,  YSiM,ZSAH,  GS(7)  T3 

CCMMON/OFT/IGUN,IPNCH,IEXT, ISAM, IMP,  KER  T3 

MBR=0  T3 

MNUM=0  T3 

T(1)=0.  T3 

CALL    BEGIN  T3 

CALL    SCENE  (0,0)  ?3 

REWIND     10  T3 

IF     (IGUN    .NE.     1)     GOTO    250  T3 

|                      IGDN  =  1=~>    READ    GUN    SITES    FROM    TERMINAL  T3 

<v2 

CALL    ERRMK(16)  T3 

DO    212    I=1f6  T3 

211  IERR=0  T3 
CALL    XYZIN  T3 

,I)=X1  T3 

I)  =Y  1  T  3 

I    =Z1  T3 

J1.GS.1000.)     STOP  T3 

I    .GE.     5)     CALL    GUNCHK  (X1,Y1,IERR)  T3 

'IERR    .EQ.     0)     GOTO    212  T3 

'    CALL    ERRMK(IERR)  T3 

GOTO     211  T3 

212  WRITE     (10,501)X1,Y1,Z1  T3 
220          CALL    SREMK( 14)  T3 

CALL    XYZIN  T3 

XSAM=X1  T3 

YSAM=Y1  T3 

ZSAM=Z  1  T  3 

IF    (Z1.GE.1000.)     STOP  T3 

CALL    SAMCHK  (X1f  IERR)  T3 

IF     (IERF    .NE.     0)     GOTO    220  T3 

WRITE(1C,50  1)  X1f  Y1,  Z1  T3 

T3 

IGON=2===>    READ    GUN    SITES    FROM    DATA    FILE  ?3 

T3 

IF     (IGUN    .NE.     0)     GO    TO    260  T3 

DO    252    1=1,6  T3 

252                 READ  (10.501)  XGUN(I)  .YGUN  (I)  ,ZGUN  (I)  T3 

READ(10,501)     XSAM,YSAM,ZSAM  T3 

T3 

DRAW    GUN    SITES    AND    ENGAGEMENT    CIRCLES  T3 

T3 

DO    265    1=1,7  T3 

CALL    GUNLOC  (XGUN  (I)  , YGUN  (I)  ,GR  (I)  )  T3 

CALL    GUNLOC(XSAM,YSAM,  150.)  T3 

T3 
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FILE:     T3  FORTRAN       A  NAVAL    POSTGRAD OATE    SCHOOL 


C 


c 


c 


c 


X(MNUM 
Y  (MNUI 


M)  =X1 

M    =Y1 


C 


C 


c 


T3  OC 

T3  OC 

T3  OC 

T3  OC 

T3  OC 


C  THIS     SECTION    ACCEPTS    THE    FLIGHT    MILESTONES  T3  OC 

C  T3  OC 

FTFAC=3.2808U  T3  OC 

DGFAC=57. 29578  T3  OC 

CALL    ERRMK(1  5)  T3  OC 

REWIND    11  T3  OC 

300       MNUM=MNUM+1  T3  OC 


T3    OC 


C         READ    MILESTONES    FROM   THE    DISK  T3    00 


T3  OC 

302       IF    (IMP    .NE.     0)     GOTO    305  T3  OC 

READ  (  11,625)X(MNUM)  ,Y  (MNUM)  .ZfHNOH)  ,VEL(HNUH)  ,LTR  T3  OC 

IF     (X(MNUM)     .  LE.     0.1)     GOTO    302  T3  OC 

IF    ]LTR   .  EQ.     1)     IMP  =  1  T3  OC 

LTR2=LTR  T3  00 

GOTO    308  T3  OC 


T3    0 


C         READ    MILESTONES    FROM    THE    TERMINAL  T3  OC 

C  T3  00 

305         CALL    XYZIN  T3  OC 

T3  00 

T3  OG 


ZJMNUM    =Z1  T3    0  1 

VEL(MNUM)=V1  T3    01 

T3    01 

C         COMPOTE    FLIGHT    PARAMETERS    AND    CHECK    FOR    ERRORS    OR    USER    COMMANDS  T3    01 

C  T3    0  1 

308      IF(MNUM.EQ.1     . AND.  (LTR. EQ. 83    .OR.    LTR2.EQ.83)}     STOP  T3    01 

IF     (MNOM    .EQ.     1)     GOTO    30  0  T3    01 

IERR=0  T3    0  1 

CALL    VALSET(IERR)  T3    01 

IF(((LTR.EQ.  82)  .OR.  (LTR2.    EQ.     82)  )  .  \  ND.  ( IMP.  NE.  0)  )     GOTO    350  T3    01 

IF((LTR     .EQ.     66)     .OR.     (LTR2.     EQ.     66))     MBR=MNUM  T3    01 

IF((LTR    .EQ.     83)     .OR.     (LTR2.    EQ.     33)  )     GOTO    370  T3    01 

IF    (IERR    .EQ.     0    )     CALL    ERRCHK(IERR)  T3    0  1 

IF     ((IERR^KER    .EQ.    0)     .AND.      (IERR    .NE.     12))     GOTO    310  T3    01 

CALL    ERRMK(IERR)  T3    0  1 

IF    (IMP    .NE.     0)    GO   TO    305  T3    0  1 

CALL    ERRMK(20)  T3    01 

READ  (5. A)  ICOR  T3    0  1 

IF     (ICOR. EQ.1)    GO    TO    305  T3    01 

C  T3    01 

C         MILESTONE    ACCEPTED,    RESTART    THE    SEQUENCE  T3    01 

C  T3    0  1 

310       CALL    PTHPLT  T3    01 

IF     (LTR    .EQ.     65    .OR.     LTR2    .EQ.    65)     CALL    AIMPT(MNUM)  T3    0  1 

GOTO    3  00  T3    01 


T3    01 


C                      THIS    SECTION    RESETS  THE    DATA                                                                                                 T3    01 

C  T3   01 

350       CALL    SCENE  (1  ,ICT)  T3    01 

REWIND     19  T3    0 1 

IF(MBR    .GT.     ICT)     MBR=0  T3    01 

C  T3    01 

C              COMPLETE    RESTART  T3    0  1 

C  T3    01 

IF    (ICT    .GT.     1)     GOTO    352  T3   01 

MNUM=0  T3    01 

GOTO    2  60  T3   0  1 


T3    01 


C              DRAW    RETAINED    MILESTONES  T3   0  1 

C  T3    01 

352       IF    ((ICT    .GE.     MNUM)      .AND.  (MNUM    .GE.     3))      ICT=MNUM-1                                           T3    01 

DO    3  55    MNUM=2,ICT  T3    0  1 

355                   CALL    PTHPLT  T3    01 

MNUM=MNUM-1  T3    0 1 

GOTO    26  0  T3    01 

128 
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THIS    SECTION    TERMINATES    THE    PROGRAM 


3  70 


BLANK=0. 
CALL  PTH 
LAST=IMP 
CALL    ELF 


FLT 


IN  (I 

COMPUTE    FLIGHT 


DX=X 
DY=Y 
DZ  =  Z 
HA  (Ml 


MNU 
MNU 
MNU 


IBM) 

CA(MNUM) 
IF     (  (DX 


371 


372 


C 
C 

C 

c 


AST) 
PARAMETERS    FOR    FINAL    LEG 


X  (MNUM-1 
Y  (MNUM-1 
Z (MNUM-1 


N2  (DZ,SQRT  (DX**2    + 

0.)     .OR.     JDY    ,EQ. 

MNUM)  =ATAN2(DY,DX) 

372 

-AND. 
.AND. 
.AND. 
.AND. 


DY*^2 
0.)) 


GOTO    371 


0.)  -AND.  (DY 
0.  -AND.  (DY 
0.)  .AND.  (DX 
0.)  .AND.  ]DX 
EL  (MNUM)*COS  (HDG  (M 
EL  (MNUM)^SIN (HDG (M 
EL  (MNUM)  "*SIN  (CA  (MN 


GT 
LT 
LT 
GT 


.    0 

.    0 

.    0 

.    0 

NUM 

NUM)  )  *  COS(CA 

UM) 


HDG (MNUM)  =1. 57079 
HDG (MNUM)  =-1.57079 
HDG (MN0M)  =3.  1U159 
HDG (MNUM    =0. 


COS(CA(MNUM)  ) 
"  (MNUM)  ) 


CREATES    NE 
HAVE    BEEN 


.Mi 


375 


376 


REWIND 

IGUN=1 

WRITS  ( 

DO   375 

LTR  = 

IF 

IF 

WRITE 

WRITE 

WRITE 

* BLANK 

IF    (IG 

DO     3 

WR 

WRIT 


W    " 
INPU 

.EQ 
11 

11,6 

1=1 
0 

I  .E 
I  .E 
11,6 
11,6 
11,6 

UN  . 
76  I 
ITE( 
E(1T 


PTS    LOC    "    IF    NEW    WEAPON    OR    MILESTONE    COORDINATES 
T 

0).AND.(IGUN    .NE.     1))SOTO    377 

25)     BLANK, BLANK, BLANK, BL  ANK, BLANK 
,MNUM 

Q.     MER)     LTR=66 
Q.MNUMJ     LTR=LAST 
25       X(t)  ,Y(I),Z(I) 

27) VEL(1) ,MBR,BLAN 

EQ.    0)    GOTO    377 

11 '625)     XGUN  (I)  ,YG 
,625) XSAM,YSAM,ZSA 


,VEL(I) ,LTR 
K,3LANK,IGUN,IGUN,BLANK,BLANK,IGUN, 


UN  (I)  ,  ZGUN(I) 

M 


CONVERT    ANGLES    FROM    RADIANS    TO    DEGREES 


!U        J. 

)G  (I 


377      DO    380 
CA 
RA 
3  80  HD 

CALL  PSE 

500  FORMAT (2 

501  FORMAT  (3 

625  FORMAT  (4 

626  FORMAT 

627  FORMAT 

STOP 
END 
CCCCCCCCCCCCCC 
CCCCCCCCCCCCCC 

c 

CCCCCCCCCCCCCC 
CCCCCCCCCCCCCC 
SUBROUT 
COMMON/P 
CCMMON/P 
COMMON/P 
COMMON/P 
DIMENSIO 
GEE=9.82 


=  1,M 
=CA( 
=  RAJ 
)=HD 
SET 

I7l 
F10. 

F10. 

9999 

10.0 


NUM 

I)  *DGFAC 

IJ^DGFAC 

G(I)*DGFAC 


2) 

0,13) 

9-») 

,I2,8I1,F10.0) 


CCCCCC 
CCCCCC 

CCCCCC 
CCCCCC 
INE  VA 
AR/X  (2 
AR1/XD 
AR2/T  ( 
AR3/TM 
N    AXD( 


CCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCC 

VALSET 
CCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCC 
LSET(IERR) 
00)  ,Y(200i  ,Z(200 
OT  (200)  ,YDOT(200 
200) 

D. ACLIFT,CLMAX,W 
200)  ,AYD  (200)  ,AZ 


CCCCCC 
CCCCCC 

CCCCCC 
CCCCCC 

),HDG( 
) ,ZDOT 

L,TMAX 
D(2  00) 


CCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCC 

200)  ,CA(20  0)  ,RA  (200)  ,VEL(200) 
(200) ,MNUM,MBR 

,CD0 ,CDK,VMAX1. VMAX2 

,XDD (200)  , YDD  (200)  ,ZDD  (200) 


T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

0  1 

T3 

0  1 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

0  1 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

0  1 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

0  1 

T3 

01 

T3 

0  1 

T3 

0  1 

T3 

01; 

T3 

01 

T3 

01: 

T3 

01  s 

T3 

OK 

T3 

01? 

T3 

0  1 

T3 

01 

T3 

01 

T3 

0  1 

T3 

01 

T3 

01 

T3 

01 

T3 

01 

T3 

01| 

T3 

01 

T3 

01 

T3 

01 

T3 

Oil 

T3 

0  2*,| 

T3 

o:K 

T3 

o:i„ 

T3 

02i 

T3 

Olf 

T3 

o:*„ 

T3 

o:i; 

T3 

0  2| 

T3 

01* 

T3 

oi. 

T3 

o; 

o:| 

o:|i 

T3 

T3 

T3 

o  if 

T3 

o: 

T3 

0 

T3 

0  x 
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FILE:  T3 
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C 
C 
C 


C 

c 

c 


10 


1 1 


20 


[MNUM)  - 
MNUM)- 
MNUM    - 
DX     .NE. 
!ERR  =  12 
RETURN 
VAVGL=VAVG 
DISTL=DIST 


LIMIT    THE    SPEED 


X  (HNOH-1 

Y  (MNUM-1 
ZJMNUM-1 
0.)      .OR. 


(DY    .NE.     0.))      GOTO    5 


DIST=SQRT 
IF  ((  VEL 
IF  ((  VEL 
VAVG=(VEL 


'DXfe»2  ♦  DYA$2  ♦  DZ«**2) 
MNUM)     .GT.    VMAX1)  .AND. 

*MNUM)  .GT.  VMAX2)  .AND. 
MNUM)  ♦  VEL  (MNUM-1)  )  /2  . 


DT=DIST/VAVG 

T(MNUM)  =  T  (MNUM-1) +DT 


(MBR 
(M3R 


EQ. 
GE. 


V 


:l  (: 

!L(? 


VEL  (MNUM)  =VMAX2 


COMPUTE    AVERAGE    VELOCITY    COMPONENTS 

MN  UM ) = VA  VG*DX/D 1ST 
MNUM)=VAVG*DY/DIST 
MNUM) =VAVG*DZ/D 1ST 
MNUM    .GE.     3)     GOTO    20 

COMPUTE    THE    PARAMETERS    FOR    THE    INITIAL    LEG    OF    THE    FLIGHT    PATH 


N2  (DZ,SQRT  (DX**2 
EQ.  0.)  .OR.  (DY 
1)  =ATAN2  (DYr DX) 


„«2Jj 


EQ. 


EQ. 
EQ. 
EQ. 
EQ.. 


0.) 

0. 

O.i 

0. 


.AND. 
.AND. 
.AND. 
.AND. 


'DY 
'DY 

;dx 

*DX 


.GT. 
.LT. 
.LT. 
.GT. 


0.) 

0. 
0.  i 

0.  i 


GOTO    10 


HDG 
HDG 
HDG 
HDG 


57079 

.57079 

14159 


EL  (1)*DX/DIST 
EL  (1)*DY/DIST 
EL  (IJ^DZ/DIST 

MNUM)  -T(MNUM-2))  /2. 

COMPUTE    THE    ACCELERATION    COMPONENTS 


XDD(MNUM-1)= 
YDD(MNUM-1)= 
ZDD(MNUM-1)= 


AXD 
A  YD 
AZD 


MNUM)  -AXD 
MNUM)  -A YD 
MNUM)  -AZD 


MNUM-1))  /DELT 
MNUM-1  /DELT 
MNUM-1)     /DELT 


WEIGHT    AVERAGE    OF    THE    VELOCITY    COMPONENTS 


HDAVG=DISTL/  (DIST+DISTL) 
TDX=  (AXD  (MNUM)  /V  AVG-AXD(  MNUM-1 
TDY=(AYD    MNUM)  /VAVG-AYD  (MNUM-1 
TDZ=(AZD  (MNUM)  /V  AVG- AZD  (MNUM-1 


/VAVGL 
/VAVGL 
/VAVGL 


*HDAVG+AXD  (MNUM-1)  /VAVGL 
^HDAVG>AYD(MNUM-1)  /VAVGL 
^HDAVG  +  AZD  (MNUM-1) /VAVGL 


MAKE    THE 
VELOCITY 


WEIGHTED    VALUES 
COMPONENTS 


A    UNIT    VECTOR     AND    COMPUTE    THE    MILESTONE 


UNIT=SQRT  (TDX*TDX 
(ABS  (UNIT)     .GE 


♦TDY*TDY    • 
0.01)     GO 


TDZ*TDZ) 
TO    25 


25 


30 


IF 

IERR=12 

RETURN 
TDX=TDX/UNIT 
TDY=TDY/UNIT 
TDZ=TDZ/UNIT 
XDOT  (MNUM-1)  =VEL  (MNUM-1] 
YDOT(MNUM-I)  =VEL  (MNUM-11 
ZDOT  (MNUM-1)  =VEL  (MNUM-V. 
IF  (SQRT  (TDr*TDX+TDY$TDY 

CA(MNUM-1) =1.5533 

GOTO    33 
CA  (MNUM-1)  =ATAN2  (TDZ,SQRT  (TDX*  TDX+TD  Y*TDY)  ) 


*TDX 

*TDY 
*TDZ 
.GE. 


0.01)   GO  TO  30 


T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 


0 
0 
0 
0 
01 

02 
o: 
02 

02 

02 
01 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
0 


02 

02 

02 

02i 

02 


02! 

0  2? 
0  2>  , 
0  2\ 
0  2 
0  2 
0  2 
0  2 

0  2 
0  2    } 

0  2* 

02^  i 

0  2>'  v 

0  2>: 

0  2^ 

0  2  ,|  J: 

02     : 
0  2\t  ? 

0  2J    i 

0  2>j :;. 
0  2*; 
0  2  ! 

0  2j:  ; 
0  21 ! 
0  21  f. 
02  : 
0  2  ' 
0  26  ■ 
0  2 
0  2*|  f 
0  2> 
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33 


HO 


IF 


IF 
IF 
IF 
IF 


((TDX  .EQ 
HDG(MN 
GOTO   a 


UM 
5 


0.)     .OR.     (TDY    .EQ. 
-1)=ATAN2(TDY,TDX) 


0.)  )     GOTO    UQ 


(TDX 
TDX 
TDY 
TDY 


.EQ 
.EQ 
.EQ 
.EQ 


0.)  .AND. 

0.)  .AND. 

0.)  .AND. 

0.  .AND. 


TDY 
TDY 
TDX 
TDX 


.GT.  0. 

,LT.  0. 

.LT.  0. 

.GT.  0. 


HDG 
HDG 
HDG 
HDG 


MNUM-1 

'MNUM-1 
[MNUM-1 
yMNUM-1 


=1.57079 
=-1.57079 
=3. 1U159 
=  0. 


COMPONENTS    OF    ACCELERATION    IN    THE    AIRCRAFT    COORDINATE    SYSTEM 


U5 


C 

c 
c 


CASIN=SIN 

CACOS=COS 

HDSIN=SIN 

HDCOS=COS 

A11=XDD(M 

A21=-XDD  (MNU 

A31=-XDD  (MNU 

A12=YDD (KNUM 

A22=YDD(MNUM 

A32=-YDD  (MNU 

A13=(ZDD  (MNU 

A23=0. 

A33=  (ZDD  (MNU 


M- 
M- 
-1 
-1 

M- 
H- 


ELERA 


NUM-1)  ) 

NUM-1)  ' 

MNUM-1)) 

MNUM-1  H 

)*HDCOS^CACOS 

1)*HDSIN 

1)  AHDCOS*CASIN 

)&HDSIN3CACOS 

)*HDCOS 

1)*HDSIN*CASIN 

1)  ♦  GEE)*SCASIN 

1)+GEE)*CACOS 

TION    PARALLEL    AND    PERPENDICULAR    TO    FLIGHT    PATH 


TMD=(A1  1  +  A12 
ACLIFT=  (S 
IF 


'=  (SORT  (  ( 

IS  (A3H-A3 

MNUM-1 )= 


(AB 

RA( 
GO    TO    55 
50         RA(MNUM-1)=A 
55         CALL   ERRMK(2 
RETURN 
END 
CCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCC 
C  SUB 

CCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCC 
SUBROUTINE 
COMMON /ERR/M 
COMMON/MN/IB 
IF    (IERR    .GT 
J=2 

IF  (IERR  . 
IF  (IEPR  . 
MKX=MKERX( 


♦  A 


13)  /GEE 

A21+A2  2)$*2*  (A31+A3  2+A 

2+A33)     .GE.    0.01)    GO    I 

1.57079 


33)**2)  )  /GEE 
O    50 


TAN2(  (A21  +  A2  2)  ,  ( A3  1  +  A32*  A3 3)  ) 


CCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCC cccccc 
ROUTINE    ERRMK 
CCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCC cccccc 
ERRMK  (IERR) 
KERX(3)  ,MKERY(20) 
AU^.MINYrMAXY,MINXrMAXX 
.     20)     GOTO    85 

LE.6)     J=1 
GT.12 


CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCC 

c 

CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCC 


C 

c 
c 

c 
c 
c 


J)  *20i 


J=3 


DETERMINE     NUMBER    OF    TIMES    TO    FLASH    THE    LINE 
K=5+3  0*IBAUD 


UNDERLINE    THE    PROMPT 


DO    80    1=1, 

CALL    MOV 

CALL    DRW 

CALL    DRW 

8  0  IF   7    I    .LE 

RETURN 

85  MKX=950 
MKY=10ft  (IERR 
DO    86    1=1-3 

CALL     MOVA 

86  CALL    CRWA 
RETURN 

END 
CCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCC 
C  SUB 

CCCCCCCCCCCCCCCCCC 


K 

A3S(MKERX(J)  ,MKERY  (IERR) 
ABSffcKX, MKERY (IERR)) 
ABSjMKERX(J)  .MKERY  (IERR) 
.     10)     CALL    BELL 

-15) 

BS  (MKX,MKY) 
BS  (MKX+30,MKY) 


CCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCC CCCCCC 
ROUTINE  PTHPLT 
CCCCCCCCCCCCCCCCCC CCCCCC 


) 


CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCC 

c 

CCCCCCCCCCCCCCCCCCCCCCC 


T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 


02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 


03 
03; 
03 

03: 

03 
0  3: 
0  3i; 
0  3i 
0  3: 
0  3: 
0  3 
03 
0  3 
0  3:; 

0  3: 

0    3; 

0  3: 
0  3!; 
0  3;: 

0  3' 

0  3^ 

0  3f: 

0  3< 
0  3s 
03 

0^ 
0  3 
0  2J 

o:^ 

02 

oi 

03 

oi 

at, 

o? 

0|,| 

0  J!„ 

03!,i 

0  3 
0  h 

0  31 
0i 
0  I  | 

of' 

m 

0  $'! 

oi 

o<; 

0  ■■:•  ; 

0  .I!',' 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc  T3  o: 

SUBROUTINE   PTHPLT  T3  0: 

COMMON /PAR/X  (2  00)  .Y  (200)  ,Z  (2  00)  ,HDG  (200)  ,CA(23  0)  rRA  (200)  ,  VEL(2  00)     T3  Oi 

CCMMON/PAR1/XDOT(200) ,YDOT(200) ,ZDOT  (200) ,MNUM,MBR  T3  01 

COMMON/MN/IB  AUD,  MTNY,  MAXY  ,  MINX  ,  MAXX  T3  Q '■ 

C  T3  0  I 

C         IDENTIFY    THE   MAP,    DRAW    AND    LABEL    THE    FLIGHT    LEG  T3  0: 

c  T3  o: 

CALL   WIN  (MINX,  MAXX,  18000.  ,  12000.  ,  0)  T3  0: 

CALL    MOVEA'X  (MNUM-1)  ,Y  (MNUM-1)  )  T3  0: 

CALL    DRAWAJX  (MNUM)  ,Y(MNUM)  )  T3  0-] 

CALL    ANMCDE  T3  0: 

IF    (    MNUM    .ST. 99)        WRITE  (6,900)     MNUM  T3  0; 

IF     ((MNUM    .GT.9)     .AND.  (MNUM.  LT  .  100)  )         WRITE(6f901)     MNUM  T3  02 

IF         MNUM    .LE.    9)       WRITE  (6,902)     MNUM  T3  0  .' 

C  T3  o  : 

C         SAVE    THE    POINT    IN    'TEMP    DATA'  T3  02 

c  T3  o: 

WRITE(19,625)X  (MNUM)  ,Y  (MNUM)  ,Z  (MNUM)  ,VEL  (MNUM)  ,MBR  T3  03 

625   FORMAT (4F10. 6,13)  T3  0: 

900  FORMAT (' ♦• ,13)  T3  03 

901  FORMAT?'  ♦  '  ,12}  T3  0: 

902  FORMAT (•+', 11)  T3  02 
RETURN  T3  02 
END  T3  02 

cccccccccccccccccccccccccccccccccccccccccc ccccccccccccccccccccccc  T3  02 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3  0  i 

C                                                                     GUNLOC                                                                                         C  T3  0  3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3  0  % 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T3  03 

SUBROUTINE   GUNLOC  (GX  ,GY,  RAD)  T3  0  2 

COMMON/MN/IB AUD, MINY, MAXY, MINX, MAXX, MINI, MAX1  T3  0  2 


C 


T3  03 


C    IDENTIFY  THE  MAP  AND  PLACE  A  •  «■•  AT  THE  LOCATION                      T3  0  2 

C  T3  02 

CALI    WIN  (MINX, MAXX,  18000.  ,  12000. ,0)  T3  02 

CALL    MOVEA(GX-75.  ,GY)  T3  02 

CALL    DRAWA(GX  +  75.  ,GY)  T3  0  2 

CALL    MOVFA(GX,GY  +  75.  i  T3  0  2 

CALL    DRAWA(GX,GY-75.)  T3  Of 

C  T3  0«- 

C         DETERMINE    NUMBER    OF    STEPS    TO    BE    USED  T3  0  4 

C  T3  Of 

ISTEP=3                     «  T3  0^ 

IF     (RAD.LT.     1600.)     ISTEP=6  T3  0<j 

C  T3  0*. 

C         DRAW    A    CIRCLE    AROUND    THE    SITE  T3  04 

c  T3  oy 

DO    10    I=3,180.ISTEP  T3  0^ 

ANGLE =1*0. 034907  T3  04 

DX=RAE*COS  (ANGLE)  +GX  T3  04 

DY=RAE*SIN  (ANGLE)  +GY  T3  0  * 

CALL    MOVEA  (DX+10.  ,  DY)  T3  0  ^ 

10               CALL    CRAWA(DX-10.  ,DY)  T3  0  Hi 

RETURN  T3  0  4 

END  T3  QL-.. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T3  Ofli 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T3  0& 

C                                                                     SPOT  C                    T3  9^ 

C                      THIS    RETURNS    AN    X -Y    PAIR    AND    TWO    COMMAND    VALUES    L15L2       C  T3  0<£ 

C                      THE    ROUTINE    CREATES    A    DOT    AT    POINT  X,  Y    AND    ASKS    FOR            C                    T3  Of 

C                      OPERATOR    VERIFICATION     (ASCI  I"N  "=7  8)  C                    T3  0<f 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T3  ot 

SUBROUTINE   SP0T(X,Y,L1  ,L2)  T3  Of 

C  T3  0% 

C         READ    THE    CURSOR  T3  Ot 


T3    0<£ 


100       CALL    VCURSR(L1  ,X,Y)  T3    Of 


T3  0^ 

C         MARK    THE    SPOT  T3  Ok 

C  T3  Ot- 

CALL    POINTA(XrY)  T3  0* 
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C 
C 

C 

c 
c 
c 


VERIFY    THE    POINT 

CALL    VCURSR(L2,A,E) 
DOES    THE    OSER    ACCEPT   THE    SPOT? 

IF.1JL2    .EQ.     78)     .OR.     (L2    .  EQ.     110)) 


'TORN 
END 
CCCCCCCCCCCC  CCCCCC 
CCCCCCCCCCCCCCCCCC 
C 

C  THIS    BOOT 

CCCCCCCCCCCCCCCCCC 
SOEROOTINE  S 
COMMON/EBR/M 
COMMON/PAR/X 
COMMON/MN/IB 
CCMMON/TAR/T 

DRAW    THE 
THE    ROOTINE 
END   OF    FILE, 
SITIVE    AND    R 


GOTO     100 


ERASE    THE    SCRE 
CALL    NEWPAG 


CCCCCCCCCC CC CCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SCENE  C 

INE    DRAMS    THE    ATTACK    MAP 

CCCCCCCCCCCCCCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 
CENE(IRQfICT) 
KERX(3)  ,MKERY (20) 

(200)  ,Y  (20  0)  ,Z(2  00)  ,HDG(200)  ,CA(20  0)  ,RA  (200)  , VEL(200) 
AOD,HINYtHAXf ,MINX,MAXX,  MINI ,MAX1,MAP 
ARGX,TARGY 
X,Y    MAP 

READS  X,Y  PAIRS  FROM  FILE  09.  A  -2.0,0  INDICATES 
-0.5,0  INDICATES  A  MOVE, ALL  OTHER  VALOES  ARE  PO- 
ESOLT    IN    A    DRAW    TO    THAT     POINT. 

EN 


READ    USER    CPTIONS 


WRITE  (6.  635) 
READ(5,*)MAP 
IF  (IRQ    .EQ. 
WRITE(6.63 
READ (5,«) 


0)     GOTO 

0) 

ICT 


195 


CLEAR    THE    SCREEN 


195 


2  00 
201 


C 
C 

c 


CALL  NEWPAG 
CALL  WIN  (BIN 
IF  {MAP  .EQ. 
REWIND  9 
READ (9,501 
READ  (9  .501 
CALL  MCVEA 
READ  (9,501 
IF  (TX.LT. 
IF  (TX.LT. 
CALL  DEAWA 
GOTO    201 


X.  MA  XX,  18000., 1200  0., 1) 
0)     GOTO    210 


)     TX,TY 
)     TX.TY 
(TX,TY) 
)     TX,TY 
-1)     GOTO 
0)     GOTO 
(TX,TY) 


210 
200 


MARK    THE    TARGET 


210 


CALL 
CALL 


GONLOC( 
GUNLOC( 


^??K'?A??X'  150.) 


TARGX,TARGY,300. 
DRAW    TIC    MARKS    EVERY    2000    MTRS 


DO 


215 


215    1=1,8 

IW=2*I 

CALL    KOVE 

CALL    CRAW 

CALL     JNMO 

WRITE  (6,5 

IF     (I    .GE 

CALL    MO 

CALL    DR 

CALL    MO 

CALL    AN 

WRITE(6 

CONTINUE 

CALL    MOVEA(8 


A  (1^2000.,  1000.) 
AJI$2000.,0.  ) 

02)     IW 

.     6)     GOTO    215 

VEAM000.  .1*2000 

AWA(0., 2000.^1) 

VREL(-30,0) 

MODE 

,502)     IW 

000.  ,0.) 


T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 


04. 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04    I 

04    , 

0  4 

04  : 

0  4  i 

0  4:  I 

0  4:  ! 

0  4:  ; 

0  4:  ) 

0  4  : 

0  4  I 

04:  : 

0  4  ! 

0  4  : 
04  : 
0  4  ; 

0  4   * 

0  4  ; 

04  ' 

0  4  ': 

0  4  i: 

0  4  :: 

04  : 
0  4  •: 

0  4  I 

0  4  I 

0  4  I 

0  4  I 

on  ; 

0^  i 

on  t 

ou  j 

Oq   j 

01  , 
04  H 

QtH 

0  <;  if; 

0  If  Vi 
0  h  i 

om 

0  fij  !;V 

0  6; i; 

0  k\  I; 

Oi 
Of  l 
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C 
C 
C 


2  20 
225 


1 
2 
3 

a 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 


CALL    MOVEEL(0,-20) 

CALL    ANMCDE 

WRITE  (6.503) 

CALL    MOVEA(8000.  .0.) 

CALL    MOVREL(0,-40) 

CALL    ANMCDE 

WRITE (6 r SOU) 

DRAW    THE    ALTIMETER 

CALL    WIN  (MIN1,MAX1,350.,  2200.,  1) 
DO    220    1=2,20,2 

CALL    MOVEA  (0.  .1*100.) 

CALL    ERAWAJ350-, 1*100.) 

CALL     ANMCDE 

WRITE  (6,502)1 
DO    225    1  =  1*6 

CALL     MOVEA(I*50.  ,  100.) 

CALL    DRAWA  (1*50.  ,0.) 

MARK    RESET   POINT    VELOCITY    AND    ALTITUDE    AS    OPERATOR    AID 


IF     (IRQ.NE.O 
CALL    MOVEA  (0. 
CALL    MOVEEL(0 
CALL    ANMCDE 
WRITE(6,505) 
CALL    MOVEA(0. 
CALL    MOVHEL(0 
CALL    ANMCDE 
WRITE  (6,  506) 
DO    499    11*1,2 
1=2 

IF  (IT  .LE 
IF  (IT  .GE 
CALL  MOVAB 
CALL  ANMOD 
GOTO  M,  2. 3  , 
WRITE  (6.60  1 

GOTO    499 
WRITE  (6.602 

GOTO    499 
WRITE  (6.603 

GOTO    499 
WRITE  (6.604 

GOTO    4  99 
WRITE  (6,605 

GOTO    499 
WRITS  (6.606 

GOTO    &99 
WRITE  (6,607 

GOTO    499 
WRITE  (6.608 

GOTO    499 
WRITE  (6,609 
GOTC    49  9 
WRITE  (6.610 

GOTO    499 
WRITE  (6.61 1 

GOTO    499 
WRITE  (6.612 

GOTO    499 
WRITE  (6,613 

GOTO    499 
WRITE  (6.614 

GOTO    499 
WRITE  (6.615 

GOTO    499 
WRITE  (6,616 

GOTO    499 

WRITE  (6,617 

GOTO    499 


AND.    ICT    .GT.1)CALL    PO  INTA  (VSL  (ICT)  ,  Z  (ICT)  ) 

0.) 

-15] 


) 


°-3k 


6)    1  =  1 
13)     1  =  3 

(MKERX(I)  ,  MKERY(IT)  ) 

,5, 6,  7,  8, 9, 10,  11,12,13,14, 15,16,  17,  18,19,20)  ,IT 


T3 

0< 

T3 

0: 

T3 

0C 

T3 

0? 

T3 

oc 

T3 

oe 

T3 

0' 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

0C 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

Of 

T3 

05 

T3 

Of 

T3 

05 

T3 

Of 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

0  5 

T3 

0  5 

T3 

0  5 

T3 

0  5 

T3 

0  5 

T3 

05' 

T3 

0  5 

T3 

0  5: 

T3 

OE 
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18 
19 


20 

4  99 

501 

5  02 

503 

504 

5  05 

506 

5  07 

601 

6  02 

603 

604 

605 

606 

607 

6  08 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

63  0 

6  35 

WRITE  (6,61 8) 
GOTO  499 
WRITE  (6.61 9) 

GOTO  499 
WRITE  (6,62  0) 
CONTINUE 
RETURN 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


2F10.  2) 
♦  •.12 

X    &    Y    AXIS    MARKS    IN    1000"S 
0    DEG.     HEADING    ALONG    X    AXI 
ALT.     IN    100"S') 
VEL    IN    50" S') 

Mix    ACCEL    EXCEEDED*) 
MAX    G    EXCEEDED1) 
APPRCH    TCO    LOW* ) 
ALT    TOO    HIGH1) 
STA  LL  ') 

POP-UP    TOO    LOW' 
BMB    DROP    LOW') 
3MB    DROP    HI') 
TOO    FAR    FM    TGT' 
HDG>5    DEG    TO    TGT') 
FINAL    RUN<2. 33    SEC) 
NO    HORIZONTAL    MOTION') 
TOO    CLOSE    TO    TGT') 
ENTER    MISSILE    LOCATION') 
ENTER    MILESTONES') 
ENTER    GUN    COORDINATES') 
MAX    LIFT    EXCEEDED') 

3D') 


s'm 


) 


) 


MAX    THRUST    EXCEEDEl 


X  COORDINATE  < 
DO  YOU  WANT  TO 
AT  WHICH  POINT 
VILLAGE:    0  =  NOT 


6000') 
FIX  TH 
DO    YOU 

DRAWN; 


END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SUBROUTINE    WIN 

C  THIS    ROUTINE    DEFINES     A    WINDOW    E 

C  THE    HORIZONTAL    AXIS.     AND    FROM    M 

C  AXIS.    THE    HORIZONTAL    RANGE    IS    R 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE  W  IN  (LX,MX  ,RX,  RY  ,  JMP 
COMMON/MN/IB  AUD, MINY, MAXY 


E    ERRO 
WANT 
1=    VI 

cccccc 
cccccc 

XTENDI 
INY  TO 
X,  THE 

cccccc 

) 


R:0=NO,USE  THE 
TO  RESTART') 
LLAGE  DRAWN') 


POINT; 1=YES') 


ccccccccccccccccccccccc 
ccccccccccccccccccccccc 

c 

NG  FROM  LX  TO  MX  ON  C 
MAXY  ON  THE  VERTICAL  C 
VERTICAL    RANGE    IS    RY    C 

CCCCCCCCCCCCCCCCCCCCCCC 


C 

c 

C 


DEFINE    THE    WINDOW 


CALL    TWINDO     (L X, MX. MINY, MAXY) 
CALL    DWINDO(0.  ,RX,0.  ,RY) 


FLASH    THE    DEFINED    WINDOW 


IF 


I 
DO 


[JMP    .EQ.     0) 
CT=4  +  fc^IBAUD 


4  +  t^IBAl 
10     1=1. ICT 
CALL    MOVABS 
DRWABS 

DRWABS 
DRWABS 
DRWABS 


GOTO    1  1 


;lx,miny) 

LX,MAXY 

MX, MAXY 
MX, MINY 
LX,MINY 


CALL 
CALL 
CALL 

10  CALL 

1 1  RETURN 
END 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCC CCCCCC CCCCCC CCCCCCCCCCCCCCCCCC 
C  SUBROUTINE    XYZIN 

CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCC 
SUBROUTINE    XYZIN 

COMMON    /LOC/X1.Y1.Z1, V1.LTR.LT 
COMMON/MN/IB  AUD , MINY, MAXY , MI  NX 


CCCCCC 
CCCCCC 

CCCCCC 
CCCCCC 

R2 
,MAXX, 


CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCC 

c 
ccccccccccccccccccccccc 
ccccccccccccccccccccccc 


MINI ,  MAX1 


T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

05 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

06 

T3 

oe!l 

T3 

Of 

T3 

0  6,! 

T3 

Qt\ 

T3 

Ot" 

T3 

0  6" 

T3 

0  6! 

T3 

06 

T3 

Ot, 

T3 

0  6 

T3 

0  6 

T3 

0  6 

T3 

0  6 

T3 

06 

T3 

ok 

T3 

0':. 
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CALL  BELL                                                                                                                                                             T3  0' 

C  T3  Of 

C         IDENTIFY    MAP   AND    GET    X,Y    AND    THE    FIRST    COMMAND  T3  0» 

C  T3  0' 

CALL  WIN  (MINX,  MAXX,  18000.  ,  12000.,  1)                                                                                    T3  0' 

CALL  S?OT(X1,Y1,LTR,LDM)                                                                                                                      T3  0' 

CALL  BELL                                                                                                                                                      T3  0- 


C 


C 


C 


C 


T3    0' 


C         IDENTIFY    ALTIMETER    AND    GET    VEL,ALT  AND    THE    SECOND    COMMAND                               T3  0« 

C  T3  0' 

CALL   WIN  (MINI, MAX1, 350. ,2200.,  1)  T3  0' 

CALL   SPOT(V1  ,Z1,LTR2,LDM)  T3  0 


T3    0» 


C         CONVERT    LOWER    CASE    TO    0PPER    CASE  T3  0 

C  T3  0 

IF    (LTR    .GT.     96)     LTR=LTR-32  T3  0 

IF    (LTR2    .GT.     96)     LTR2=LTR2-32  T3  0 

RETURN  T3  0 

END  T3  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

C                                       SUBROUTINE    BEGIN                                                                                            C  T3  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

SUBROUTINE    BEGIN  T3  0 

COMMON/MN/I3AUD,MINY, MAXY, MINX, MAXX, MINI, MAX1, MAP  T3  0 

CCMMON/OPT/IGUN,IPNCH, IEXT, ISAM, IMP,  KER  T3  0 


T3    0 


C          INITIALIZE    THE    GRAPHICS    AND    CLEAR    SCREEN  T3  0 

C  T3  0 

CALL    INIT  T3  0 

CALL    NEWPAG  T3  0 

C  T3  0 

C         READ    USER    OPTIONS  T3  0 

C  T3  0 

50         WRITE     (6.600)  T3  0 

READ     (5,*)     IGUN  T3  0 

WRITE     (6,630)  T3  0 

READ  (5.$)  IMP  T3  0 

WRITE (6, 635)  T3  0 

READ  (5, A)  KER  T3  0 

WRITE     (6.625)  T3  0 

READ    (5,*)    IBAUD  T3  0 

WRITE  J6.6U0)  T3  0 

READ(5,*)KON  T3  0 

IF    (KON     .NE.     0)     CALL    CONCHG  T3  0 

600       FORMATC    GUNS:D=DISK    FILE; 1=TERMINAL : 2=PRESET  ')                                                  T3  0 

625       FORMAT?'     BAUD    RATE:     0=300    BAUD;    1=1200    BAUD')  T3  0 

630       FORMAT?'     MILESTONE    INPUT:    0=DISK    FILE;     1=TERMINAL'l  T3  0 

635       FORMAT?'     ERROR    CHECKING:     0=NO    CHECKING;     1=CHECK    FOR    ERRORS')  T3  0 

6U0       FORMAT?'     FLIGHT    5    GAME    PARAMETERS:    3=DEFAULT;  1=USER    INPUT'                     T3  0 


T3    0 


C         COMPUTE    THE    SCREEN    WINDOW    COORDINATES  T3 

C  T3    O'llil 

MAXX=KIN  (5.75)  T3    0   fl 

MINX=KINJ0.2  5  T3    0  il 

MAX1=MAXX+18  5  T3    0   V 

MIN1=MAXX+10  T3    0   !n 

MAXY=KIN  (0.3  75)  T3    0    ;|i 

MINY=KIN  (4.042)  T3    0     ' 

MAXY=777-MAXY  T3    C    v 

MINY=777-MINY  T3    0;;  :||  i 

RETURN  T3    0  !'p 

END  T3    Oil  i'l 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T3    0:,  ty 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3    C  ;|i 

C  SUBROUTINE    GUNCHK  C  T3    0!  ty 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3    C:  ■  ,'i'.i 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3    C,  :  / 

SUBROUTINE    GUNCHK  (X,  Y,  IERR)  T3    GlW 

COMMON/TAR/TARGX,TARGY  T3 

c 


T3    C:'L 
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C              COMPUTE    DISTANCE    TO    TARGET  T3  C 

C  T3  C 

DIST=SQRT(  (X-TARGX)  **2    +     ( Y-TARGY)  **  2)  T3  0 

IF    (DIST    .LT.     3000.)     ISRR=13  T3  C 

RETURN  T3  C 

END  T3  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T3  0 

C                                                         BLOCK    DATA                                                                                       C  T3  G 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

BLOCK    DATA  T3  0 

COMMON/EER/MKERX  (    3)  .MKERY  (20)  T3  0 

COMMON /PAR/X  (200)  ,Y  (200)  ,Z  (200)  ,  H  DG  (  200)  ,  CA  (20  0)  ,RA  (200)  ,  VEL(2  00)  T3  0 

COMMON/PAR1/XDOT(200) ,YDOT<200) ,ZDOr(200),MNUM,MBR  T3  0 

COMMON/PAR2/T  (200)  ,  XGUN  (7)  .  YGUN(7)  ,  ZGUNm  -  XSA  M  .  YSAM  ,  ZSAM  ,  GR  (  7)  T3  0 

COMMON/PAR3/TMD, ACLIFT .CLMAX, WL,T«AX ,CD0 ,CDK, V  MAX  1 , VMAX2  T3  0 

C0MM0N/PAR4/APPMAX. HTMIN , HTM AX ,SPDMI N, GM AX ,POP MI N  T3  0 

COMMON/TAR/TARGX,TARGY  T3  0 

C  T3  0 

C              ERROR    MESSAGE    COORDINATES  T3  0 

C  T3  0 

DATA    MKERX/640,340, 10/  T3  0 

DATA    MKERY/160,140. 120,100,80,60, 160, 140, 120, 100, 80,60r160, 140,  T3  0 

*  120,100,80,60, 180,40/  T3  0 

C  T3  0 

C      PREDETERMINED    WEAPON    EMPLACEMENT    PARAMETERS  T3  0 

C  T3  0 

DATA    XGUN/14300.. 16200.. 13600.  .13400  .,11300. ,15600. ,12800./  T3  0 

DATA    YGUN/9000.. 8200. ,7200. .8000.  ,9700. ,10900.  ,7500./  T3  0 

DATA   ZGUN/40. .40. ,20 . , 20. . 50. , 90. ,20 ./  T3  0 

DATA   XSAM/12000./.YSAM/6000./.  ZSAM/50./  T3  0 

DATA    GR/1000.,  1000.  ,  1400.  ,1400. ,2500  .  ,2500.  ,2500./  T3  0 

C  T3  0 

C    SIMULATION    PARAMETERS  T3  0 

C  T3  0 

DATA   CLMAX/1./.WL/100./,SPDMIN/90./,GMAX/6./,HTMIN/60./  T3  0 

DATA    HTMAX/2050./,APPMAX/457./,TMAX/0.4/,CDO/0.015/,CDK/0. 1/  T3  0 

DATA   VMAX1/260./,VMAX2/310./.POPMIN/6000./  T3  0 

DATA   TARGX/14000./,TARGY/7220./  T3  0 

END  T3  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

C                         PRESET                                     C  T3  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T3  0 

SUBROUTINE    PRESET  T3  0 

COMMON /PAR/X  (200)  .Y  (200)  ,Z  (2  00)  ,HDG  (200)  ,CA(20  0)  ,  RA  (200)  ,7SL(200)  T3  0 

CCMMON/PAR1/XDOT(200)  ,YDOT(200)  ,ZDOT  (200)  ,MNUM,MBR  T3  0 

COMMON/PAR2/T  (200) . XGUN (7)  , YGU N (7)  ,ZGUN(7)  ,XSAM, YSAM, ZSAM  T3  0 

CCMMON/OPT/IGUN. IPNCH.IEXT, ISAM, IMP,  KER  T3  0 

DIMENSION    X1  0(200).     Yl  0(200)  T3  0 

DIMENSION    RCSTAB(1000) ,TINK(10)  T3  0 

DIMENSION    VAT1N2(208),    VAT3(208),    VAT5(208)  T3  0 

C  T3  0  , 

C      VULNERABLE    AREA    TABLE   VS    TYPE    1    AND    2    WEAPONS  T3  0 

C  T3  o ;, 

DATA    V AT  1N2/ 2*. 4 645, 6* 7. 107, 2* .6568, 6*5. 55 1 . 2* .6  968 ,6*5. 57  4 , 2* . 656T3  0  i } 

1 8,6*7.  3  57. 2*.  6968,6*5.  574,  2*  ,6  568. 6*  5,551. 2*. 6  968 .6*5.  574,  2*.  6568.  T3  0  1  \\ 

26*7. 357, 2*. 6 96 8. 6*5. 57 4, 2*. 4 64 5, 6*. 7 43 2,  2*.  6  56  8.  6*2.  858,2*.  46  45,6*T3  0  \\l 

33. 298, 2*. 656 8, 6*2. 8 5 8. 2*. 464 5. 6*. 743 2. 2*. 6568.  6* 2. 858 .2*. 4 645, 6*3. T3  0  i'  % 

4  298,  2*.  6  568.  6*2.  858.  2*.  6  56  8.  6-*  5.  5  51,  2*.  6  968,6*5.  574  -  2*.  656  8  ,6*7.  35  T3  0  ii 

57,2*.6  96  8,6*5.574,2*.6  56  8,6*5.551,2* .6  96 8 ,6*5. 57  4 , 2* . 6  568 , 6*7. 3  57, T3  0 :   i 

62*.6968,6*5.  574,2*.4645,6*7.107/  T3  0 

C  T3  0  :|  ! 

C      VULNERABLE    AREA    TABLE    VS    TYPE    3    WEAPONS  T3  0  ;! 

C  T3  0  :<\. 

DATA    VAT  3/2*  12.  5  4, 6*  13. 4  7,  2*  9.  853. 6*  10.5  1 .2*9.  53  9.6*  11 .  15  ,  2*1  2  .  64,  T3  0':  i; 
16*14.7  8,2*9.63  9,6*1  1 .  15.  2*9.  85  3.6*10  .  51 .2*9.  63  9.  6*1 1.  15.2*1  2.  64.  6*T3 
2 14. 78, 2* 9. 63 9, 6* 11. 15, 8* 1.394, 2*4. 76 2, 6*6. 240, 2* 5. 34 2, 6*7. 4 32, 2*4. T3 
3762,6*6.24  0, 8* 1.394,2*4. 762,6*6.240, 2*5. 342,6*7. 4  32.2*4.76  2 .6*6. 24T3 
4  0,2*9.8  5  3,6* 10.51,2*9.63  9,6*11 .15 ,2* 12.6  4 ,6*14. 78,2*9. 639, 6*1 1 . 15, T3 
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5  2*9.  85  3,  6*  10.  5  1,2*9.  63  9,  6*  11.  15, 2*1 2.  64,  6*  14.  7  8,  2*  9.  63  9,  6  <M1.  15,2*T3  0 

612.54,6*13.47/  T3  0 

C  T3  0 

C   VULNERABLE  AREA  TABLE  VS  TYPE  5  WEAPONS  T3  0 

C  T3  0 

DATA  VAT5/8* 55. 37,8*43. 22. 8* 47. 10. 8* 62. 5 3, 8* 47. 1  0 . 8* 43.  22 . 8*4  7. 1 0. T3  0 

18*62.5  3,8*47. 10,8*5.76 1,8*27.4  5,3*3  3 .  07, 3*27. 4 5, 8*5 . 76 1 , 3*27. 45 , 8*T3  0 

233.07,8*27.4  5,8*5.76  1,8*47.10,8*6  2.5  3,  8*47.  10,  8*4  3.  22,  3*4  7  .  10,8«6  2T3  0 

3.53,8^47.10,8*55.37/  T3  0 

C  T3  0 

C   RADAR  CROSS  SECTION  TABLE  T3  0 

C  T3  0 

DATA   RCSTAB/19*1000. ,19*100. ,19*10.,  19*1 0. , 19* 10., 19*100. ,  T3  0 

+  19*1000.  ,867*0.0/  T3  0 


C 


C 


C 


T3    0 


C      CALL    ERRSET    SUPPRESSES    ANY    POSSIBLE    UNDERFLOW    PROBLEMS    THAT    MAY  T3  0 

C      RESULT    FROM    MANIPULATION    OF    SCENARIO    PARAMETERS.  T3  0 

T3  0 

CALL    ERRSET    (208,50,-1,1,1)  T3  0 

JAM=0  T3  0 


T3    0 


C      CARD    2   TIME    INCREMENT   CALCULATION  T3    0  I 

C  T3    0 

TINC   =    T  (MNUM) /1000.    +    0.0008  T3    0  J 

C  T3    0  I 

C      CARD    6    TIME    INCREMENT   CALCULATIONS  T3    0  ) 

C  T3    0 

TINKI    =0  T3   0  ! 

C  T3    0  ) 

C  T3    0  ; 

C  T3    0  |i 

DO    10    1=1,9  T3    0  i 

TINK(I)     =   TINKI+T  (MNUM)/10  T3    0  I 

TINKI    =    TINK  (I)  T3    0  ;| 

10    CONTINUE  T3    0  I 


T3    0 


C      /////*****  PUNCH    PROGRAM*****/////  T3  0 

C  T3  0   ;; 

C  T3  0    " 

C      OPTION   TO    PUNCH    THE    P001    CARD    DECK   OR    SICE- II    CARD    DECK  T3  0     |' 

C  T3  0    t 

IF    (IPNCH.EQ.0)  RETURN                                                                                                                   T3  0    5 

IF    (IPNCH.EQ.2j  GO   TO    155                                                                                                           T3  0    i 

c  T3  o  ;' 

C      COMMENCE    PUNCHED    OUTPUT    OF    THE    P001    CARD    DECK.  T3  0 

C  T3  o    : 

C  T3  0  ?: 

C      THE    JCL   CARES.  T3  0   fc 

C  T3  0   9 

WRITE     (18,79)  T3  0'  t\ 

WRITE     (18,80)  T3  0'  t\ 

WRITE     (18,81)  T3  O'l 

WRITE     (18,82)  T3  O'l 

WRITE     (18,83)  T3  O'lt 

WRITE     (18,84)  T3  0!  f\ 

WRITE     (18,85)  T3  0'  it 

WRITE     (18,86)  T3  0«lD 

WRITE     (18,87)  T3  01 


T3   oi; 


C      LEADING    BLANK   DATA    CARD    SIGNIFIES    RADAR    MASKING    \NGLE    OF    ZERO.  T3    Oh'! 


T3  0 ) 

T3  0  ;L! 


C   THE  OUTPUT  TITLE  CARD.  T3  Ch'l; 


T3 
WRITE  (18,90)  T3  CI  n< 

T3  Cl;<|i 


C   CARD  2  T3 
C 

WRITE  (18,88)  T3 

WRITE  (18,91)  T  (MNUM),  TINC  T3  G':l 

C  T3  c  ; 

C      THE    2A   CARDS     (MILESTONES)  .  T3    0  I 
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C 
C 

c 

4000   DO  17  I=1,MNUM 

WRITE  (18,92)  T(I)  ,X  (I)  ,  Y  (I)  ,Z  (I)  ,XDOT(I)  ,YDOT  (T)  ,  ZDOT  (I)  ,  HDG  (I) 
1,CA(I)  ,RA(I) 
17  CONTINUE 
C 
C 

c 

WRITE  (18,94) 
C 

C   CARD  3  (GUN  EMPLACEMENT  CARD). 
C 

WRITE  (18,95)  XGUN(1) , YGUN(1) r ZGUN(1) 
C 

C   CARD  4  (GUN  TYPE)  . 
C 


WRITE  (18,93) 

WRITE  (18,96) 
C 

C   CARD  5 
C 

WRITE  (18,89) 

WRITE  (18,97) 
C 

C   CARD  6 
C 

WRITE  (18,398) 

WRITE  (18,98)   (TINK(I)  ,1  =  1,9) 
C 

C   CARD  7  (VULNERABLE  AREA  TABLE  VS  TYPE  1  AND  2  WEAPONS) 
C 

WRITE  (18,399) 

WRITE  (18,99) 

WRITE  (18,100)  (VAT1N2  (I)  ,1=1, 208) 
C 
C 

C  CARD  12  (EXECUTE  RUN). 
C  EXTENDED  OUTPUT  OPTION 
C 


c 


WRITE  (18,3101) 

IF  (IEXT-NE.  1)  WRITE  (18,102) 

IF  (IEXT.EQ.  1)  WRITE  (18,101 


C 

C   THE  REMAINDER  OF  THE  CARDS  INTRODUCE  NEW  GUN  LOCATIONS,  GUN  TYPES 
C   AND  VULNERAELE  AREA  TABLES  TO  BE  EXECUTED  BY  THE  PROGRAM. 


T3 

c  :; 

T3 

c  :. 

T3 

r 

T3 

C   :| 

T3 

c  .! 

T3 

C  i 

T3 

c  ; 

T3 

c 

T3 

c  : 

T3 

c 

T3 

c 

T3 

o  : 

T3 

c  ;, 

T3 

0,! 

T3 

o 

T3 

0 

T3 

0  J, 

T3 

0  I 

T3 

0 

T3 

0  I 

T3 

0  i 

T3 

o  : 

T3 

0  i 

T3 

0 

T3 

0  ! 

T3 

0 

T3 

o 

T3 

0 

T3 

0  I 

T3 

0 

T3 

o 

T3 

0  ' 

T3 

o  !! 

T3 

0  I 

T3 

o 

T3 

o 

T3 

0 

T3 

o 

T3 

o 

T3 

0 

T3 

o 

T3 

0 

T3 

0 

T3 

o 

T3 

o 

T3 

0  I 

T3 

o 

T3 

o 

WRITE  (18,94)  T3  0 

WRITE  (18,95)  XGUN(2)  ,  YGUN(2)  ,ZGUN(2)  T3 


0 


C 

C      EXTENDED    OUTPUT    OPTION 

C 

WRITE  (18,3101)  T3  0  { 

IF  (ISXT.NE.  1)  WRITE  (18,102)  T3  0  i! 

IF  JIEXT.EQ.  1)  WRITE  (18,101)  T3  0  I 

WRITE  (18,94)  T3  0  ';: 

WRITE  (18,95)  XGUN(3) ,YGUN (3) , ZGUN(3)  T3  0  : 

WRITE  (18,93[  T3  0 ! ; 

WRITE  (18,103)  T3  0 

C  T  3    0  !  : 

C      EXTENDED    OUTPUT    OPTION  T3    0  I'1 

C  T  3   0    / 

WRITE     (18,3101)  T3    0     ' 

IF    (IEXT.NE.  1)     WRITE  (18,102)  T3    0     ' 

IF    JIEXT.EQ. 1)     WRITE  (18,101)  T3    0     ' 

WRITE     (18,94)  T3    0  i1 

WRITE     (18,95)     XGUN(4)  ,  YGUN  (4)  ,ZGUN(4)  T3   Ol' 

C  T3    0  . 

C      EXTENDED    OUTPUT    OPTION 

C 

WRITE     (18,3101) 
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C 

c 
c 


c 
c 
c 
c 


c 
c 
c 

c 


c 

c 
c 


c 

c 
c 


IF 

IF 
WRI^ 

WRITE 
WRITE 
WRITE 


(IEXT.NE.  1) 
JIEXT.EQ.  1 
TE     (18,94) 
18,95 
18,93 
18,104) 


WRITE 

WRITE 


(18,102) 
(18,101) 


XGUN(5)  ,  YGUN  (5)  ,  ZGON(5) 


CARD    7    (VULNERABLE    AREA    TABLE    VS    TYPE    3     WEAPONS) 


WRITE 
WRITE 
WRITE 


18,399 
18,149 
ie,100 


(VAT3  (I)  ,1  =  1,208) 


EXTENDED    OUTPUT    OPTION 


WRITE    (18.3101) 

IF     (IEXT.NE.  1) 

IF    JIEXT.EQ.  1j 

WRITE 

WRITE 

WRITE 


18,94) 
18,95 


WRITE 
WRITE 


(18,102) 
(18,101) 


XGUN(6)  ,  YGUN  (6)  ,  ZGUN(5) 


WRITE     (18,107) 


EXTENDED    OUTPUT    OPTION 

WRITE     (18,3101) 
IF     (IEXT.NE.  1)     WRITE 
.1)     WRITE 


IF    JIEXT.E 


WRITE 
WRITE 
WRITE 
WRITE 


18,94) 
18,95 
18,93 
18,109) 


(18,102) 
(18,101) 


XGUN(7)  ,  YGUN  (7)  ,  ZGUN(7  ) 


CARD    7    (VULNERABLE    AREA   TABLE    VS    TYPE    5     WEAPON) 


WRITE 
WRITE 
WRITE 


18,39  9 
18,150 
18,100 


(VAT5  (I)  ,1=1,20  8) 
EXTENDED    OUTPUT    OPTION 


WR 

IF 

IF 

WR 

22  IF 

FORM 

40  FO 

4  1  FO 

42  FO 

60  FO 

61  FO 
6  8  FO 

79  FO 

80  FO 

81  FO 

82  FO 

83  FO 

84  FO 

85  FO 

86  FO 

87  FO 

88  FO 

89  FO 

90  FO 

91  FO 

92  FO 

93  FO 

94  FO 

95  FO 


ITE  ( 
(IEX 
JIEX 
ITE  ( 
(IPN 
AT  ST 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 
RMAT 


8.3101 
-NE.  1 
.EQ.  1 
8,110 
H    .EQ. 
TEMENT 
3F10.0 
3F10.0 
F10. 0, 
1X,10( 

1X,'/* 

1X,8F8 

'//  sx 

//STE 

//GO. 

//    DC 

//GO. 

//GO. 

//GO. 

1,1,0 

01«" 

02» 

05' 

'  A 
0,12, 
0(F7. 
04'  ) 
03'  ) 
3(1X,F 


WRITE 


(18,102) 
(18,101) 


1)     RETURN 


% 

EC 

PLI 
FTO 

FTO 
FTO 
FTO 
,0, 


8I1.F10.0) 
1,  IX)  ) 


PGM=P1AD») 

B    DD    DISP=SHR,DSN=«SS.F0559.PIPSAV) 

7F001    DD    UNIT=SYSDA ,SPACE=(CYL.  (1. 1,)  ) 

RECFM=73S,LRECL=40'i  , 3LKS IZE=3 236)  ») 

9F001    DD 

6F001    DD 

5F001    DD 

0,0') 


DUMMY') 
SYSOUT=A'| 


IRCRAFT    COMBAT    SURVIVABILITY    SCENARIO') 

0,  '  ,F7.2,'  ,10000  0.,  ',F7.4,'/') 

1,1X)) 


7.0),'    0.0,360.0') 
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0' 

T3 
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T3 

0 

T3 

0' 

T3 

0 

T3 

0' 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

0 

T3 

°; 

T3 

o 

T3 

0 

T3 

o 

T3 

o 

T3 

0 

T3 

o 

T3 

o 

T3 

c' 

T3 

0| 

T3 

0 

T3 

0 

T3 

0: 

T3 

0 

T3 

0;i 

T3 

Ci: 

T3 

Oi: 

T3 

1; 

T3 

1| 

T3 

1  ; 

T3 

lii 

T3 

]i 

T3 

1 
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1 

T3 
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T3 
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96 

97 
398 

98 
399 

99 
100 
101 
101 
102 
103 
104 
105 


C 

c 
c 
c. 


c 
c 
c 


c 
c 
c 


c 
c 
c, 
c 


106 
107 
108 
109 
110 
149 
150 
155 


C 

c 
c 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
•  1.0«  , 
'1000. 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
CONTINU 


0 


,1, 


1  ,0.0,50.') 


0,1,1,1 
1,1,1.0') 
06'  ) 
1^9',9(1X,F7.3)) 

VULNERABLE  AREA  TABLE  VS  TYPE  1  AND  2  WEAPONS') 
8F8.  3) 
12') 

1,1,1,1,1,1,1') 

0,0,0,0,1,  1,1  • 
0,2,1,1,1,1 ,0.0,50.0') 
0,3,4*4, 1, 1,0.0,50.0') 
14' ,l3, *       5    0    1.0',7X.F6.1        ,4X,«1 
X,I5,F10.2    ,/'GEND',/, 3X, '19  7 


OE-06' 
93.0 


6X.'1« , 11X, 
180.0  J 


F10 

13' ,13,15, »    0.35') 
0^5,3,2,1,1,0.0,50. 

VULNERABLE    AREA 
VULNERABLE    AREA 


/fist 


3,/,8F10.  3,/,3F10.3) 
3,4,1,1,0.5,50.0' ) 


0M 


TABLE 
TABLE 


VS 
VS 


TYPE 
TYPE 


WEAPONS') 
WEAPON') 


COMMENCE     PUNCHED    OUTPUT    OF    THE    MICE-II     CARD    DECK 

CHECK   FOR    VALID    MISSILE    DESIGNATION    N[J  MBER    FOR    MICE    II 
IF(ISAM.LE.7.AND.ISAM.GE.  1)     GO    TO    156 

RETURN 

THE    JCL   CARES 


156 


WHITE 
WRITE 
WRITE 
WRITE 


17,200) 
17,20  V 
17,202 
17,203 


THE    OUTPUT    TITLE    CARDS 

WRITE     (17,204) 
WRITE     (17,205) 

THE    PROBLEM    RUN    INPUT    CARDS,    CHECKING    FOR   TYPE    OF 
TO    INPUT    TO    MICE    II 


MISSILE 


WRITE     (17,206) 

IF (ISAM. EQ.1)  WRITE 

IF(ISAM.EQ.2'i  WRITE 

IF  (ISAM.  EQ.3(i  WRITE 

IF  (ISAM. EQ. 4)  WRITE 

IF  (ISAM.  EQ. 5)  WRITE 

IF (ISAM. EQ.6 i  WRITE 

IF (ISAM. EQ. 7)  WRITE 


17,250 

17,251 

17,252 

17,253) 

17,254 

17,255 

17,256 


UP    10 


THE    PSSK    CALCULATION    CARDS 

WRITE     (17,208) 
WRITE     (17,209) 

THE    RADAR    CROSS    SECTION    TABLE 


WRITE 
WRITE 

WRITE 
WRITE 
WRITE 


17,210) 
17'21 1 
17^12 
17,213 
17,214i 


(RCSTAB  (I)  ,1=1,  133) 


THE  SIMULATION  TIME  PARAMETERS 

WRITE  (17,215) 
WRITE  (17,216) 


T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 

T3 
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FILE:    T3 


FORTRAN       A  NAVAL    POSTGRADUATE    SCHOOL 


C 
C 


c 
c 
c 


c 

c 
c 


c 
c 
c 


THE    MISSLE    LAUNCHER    LOCATION 

FTFAC=3. 28084 

WRITE     (17,217) 

XFSAM=XSAM^FTFAC 

YFSAM=YSAM*FTFAC 

ZFSAM=ZSAM^FTFAC 

WRITE     (17,218)     XFSAM,YFSAM,ZFSAM 

THE    TARGET    TRAJECTORY 


WRITE 
WRITE 


(17,219) 
(17,220)     MNOM 


THE    MILESTONE   CARDS 

DO    160    I=1,MNUM 

X(I)  =X(I)  *FTFAC 
Y(I)  =Y(I)  «*FTFAC 
Z(I)  =Z(I)  *FTFAC 


160 


7fiLi 

WRITE 

CONTINUE 


hM\ 


FTFAC 
)     T(I)  ,X(I)  ,Y(I) 


Z(I)  ,VEL  (I)  ,CA  (I)  ,RA(I)  ,  HDG(I) 


END    OF   PUNCHED    CARDS 
WRITE     (17,222) 
170    RETURN 
/////*****     FORMAT    STATEMENTS    ***S*V//// 


200  FORMAT 

201  FORMAT 

202  FORMAT 

203  FORMAT 

204  FORMAT 

205  FORMAT 

206  FORMAT 

208  FORMAT 

209  FORMAT 

210  FORMAT 

211  FORMAT 

212  FORMAT 

1 '60.' ./ 
26X,M30 

213  FORMAT 
17X,'90. 

214  FORMAT 

215  FORMAT 

216  FORMAT 
1'0.M 

217  FORMAT 

218  FORMAT 

219  FORMAT 

220  FORMAT 

221  FORMAT 

222  FORMAT 

250  FORMAT 

251  FORMAT 

252  FORMAT 

253  FORMAT 

254  FORMAT 

255  FORMAT 

256  FORMAT 
END 

CCCCCCCCCCCCC 
CCCCCCCCCCCCC 
CCCCC 

CCCCCCCCCCCCC 

CCCCCCCCCCCCC 

SUB-ROUT 


•//    EX 

V/STE 

V/TT0 

V/ET0 

•01") 

'AE    32 

•02 

•06 

9XX 
•08») 

7X,«23 

8X,«  0. 

7X,'70 

«./.  6X 

6X,*-9 


EC    PGM=MICE, REGION= 180 
PLIB    DD    DSN=MSS.F0559. 
6F001       DD    SYSOUT=A') 
5F001    DD    *•) 


KM 

MICESAV,DISP=SHR    •) 


51       ***ft$SURVIVABILITY     SCE NARIO? *$3*    SAM    ENCOUNTER1) 
,8X,»  0.'  ^X^O'^X^O1  ,4X,'0»  ,8X,'0.  •  ,8X,«0.  ') 


\ 


.' ,3X.  M9»  ,4X,»7 
Ox,* 10.' -7X, '2 
-*.7X,  '80.  { ,7X    • 

.'  140.  '.6X.M50. 
0. « ,6X, I-60.«,6X 


F10 

•09 
7X, 


MVj 

2X,?8. 2,2F10.2) 


12* 

9Xr 

F7. 
•20 

2X' 
2X' 
2X' 
2X' 
2X» 
Sx' 

9X, 


L 


•  ,  4  X,  ' 

o.»  ,5x 

90.  f,8 
,'-30. 

.2) 


1'l 

.'30.' ,7X. '4  0. '  ,7X,'5  0. ».7X, 

X,'100    •     SX    •  110.  •    6X.'  12  0.*, 

1601  ,6X,  M70.  •    6X.M80.') 

« ,3X,'0.',7X,'30.r,7X,'60.  ', 


,/,7F10.2,/,5FlO 

5« ,7X, '0.1 • ,7X,' 8.0',7X,'0.0',8X,'0. ' ,7X,«3  0. ',3X, 


1' 

<; 

2 
3 

4 

5 
6 
7 


,2X,I3.4X,' 1»,4X 
F10.1,3F6. 1,4X,' 


,4X, 
,4X, 
r^X, 
,4X, 
,4X, 
,4X, 
,4X, 


•0»,  3 

.'  ,4X 


Xj'O. • ,3X,«0. ' ,8X,'0. ') 


0. 


,4X,< 

'4' 

,4Xr' 

1 

,4X,' 

4' 

,4X,' 

0 

,<*x. 
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,4X, 

t 

,4X,' 

141 

,4X,' 

t 

,  4X, 

141 

,4X,' 

J     t 

,4X, 

141 

,4X, 

t 

,  4X, 

1  41 

,4X, 

t 

3X, 
3X, 
3X, 
3X, 
3X, 
3X, 
3X, 


10', 4X, 
10', 4X, 
10', 4X, 
10' ,4X, 
10', 4X, 
10', 4X, 
10' ,4X, 


1',4X,'0 
1« ,4X, '0' 
1',4X,'0< 
1' ,4X,'0« 
1 • ,4X, '0' 
1 » .47. «0» 


1 

1' 


,4X,'0' 


CCCCC CCCCCCCCCCCCCCCCCCCCCCCC 
CCCCC CCCCCCCCCCCCCCCCCCCCCCCC 

ELFIN 
CCCCC CCCCCCCCCCCCCCCCCCCCCCCC 
CCCCC CCCCCCCCCCCCCCCCCCCCCCCC 
INE    ELFIN  (LAST) 


ccccccccccccccccccccccccccc 
ccccccccccccccccccccccccccc 

ccccc 
ccccccccccccccccccccccccccc 
ccccccccccccccccccccccccccc 


T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 

T3 

T3 
T3 
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FILE:     13  FORTRAN       A  NAVAL    POSTGRADUATE    SCHOOL 

CCMMON/OET/IGUN,IPNCH,IEXT, ISAM, IMP, KER  T3    1 

COMMON/MN/   IBAUD,MINY, MAXY, MIN X,M AXX rMINl ,MAX1  T3    1 

C         WRITE    PROMPT  T3 

C  T3 

CALL    MOVftBS(MINX,MAXY+5)  T3 

CALL    ANMCDE  T3 

WRITE  (6,  590)  T3 

ICT=m-8*IBA0D  T3 

DO    10    1=1,  ICT  T3 

CALL    EELL  T3 

CALL    MOVABS  (MINX, MAXY+5)  T3 

10               CALL    ERWABS  (MINX+400, MAXY+5)  T3 

CALL  SCUBSR(L1,I,  J)  T3 

C  T3 

C    CLOSE  GRAPHICS  ROUTINES  T3 

C  T3 

CALL  NEWPAG  T3 

CALL  FIN  T3 

C  T3 

C         OLD     (LAST=0)    OR    NEW     (LAST=1)     FLIGHT    PATH?  T3 

C  T3 

IF  (LAST    .EQ.     0)     GOTO    20  T3 

C  T3 

C    REQUEST  USER  OUTPUT  OPTIONS  T3 

C  T3 

15               WRITSJ6.595)  T3 

READ  (5,*)  LAST  T3 

IF    fLAST.GE.2    .OR.    LAST.LT.O)     GO    TO    15  T3 

LAST=1    +    82*LAST  T3 

20         WRITE(6,610)  T3 

WRITE  J6,  620)  T3 

READ(5,*)IPNCH  T3 


C 


590  FORMAT 

595  FORMAT 

600  FORMAT 

6  10  FORMAT 

620  FORMAT 

630  FORMAT 

6U0  FORMAT 


T3 


C          IF    MILESTONES    CAME    FROM    DISK,  RETURN    END   OF    FILE    MARKER                                     T3 

C  T3 

IF     (LAST    .EQ.     0)     LAST=83  T3 

IF    JIPNCH    .EQ.     0)     RETURN  T3 

IF(IPNCH.EQ.  2[    GOTO     100  T3 

WRITE(6,630)  T3 

READ  (5,A)  IEXT  T3 

IF(IPNCH    -EQ.     1)     RETURN  T3 

100       WRITE(6,640)  T3 

READ  (5,^)  ISAM  T3 

((ISAM    .LT.     1)     .OR.     (ISAM    .GT.     7))      GOTO    100  T3 


IF 

RETURN  "  T3 

♦  HIT    ANY    KEY    FOR    OUTPUT    OPTION   SELECTION*)  T3 

ARE    YOU    FINISHED    WITH    THIS    FLIGHTPATH:     0=NO;     1  =  YES')  T3 

SCREEN    OUTPUT:    0=NO    OUTPUT:      1=OUTPUT    DESIRED1)  T3 


OUTPUT    FILE:    0=NO    OUTPUT;    ) =P001     FILE    ONLY')  T3 

2=MICE    FILE    ONLY;    3  =  P001     S    MICE    FILES')  T3 

EXTENDED    OUTPUT:     0=NOT    WANTED;     1=EXTENDED    OUTPUT1)  T3 

MISSILE    TYPE    BETWEEN    1    AND    7«)  T3 

END  T3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

CCCCC  SAMCHK  CCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

SUBROUTINE   SAMCHK  (X,IERR)  T3 

IERR=0  T3 

IF(X    .GE.    6000.)     RETURN  T3 

CALL    ERRMK  (13)  T3 

IERR=1  T3 

RETURN  T3 

END  T3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

CCCCC  AIMPT  CCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

SUBROUTINE    AIMPT  (I)  T3 
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FILE:    T3 


FORTRAN 


NAVAL    POSTGRADUATE    SCHOOL 


C 

c 
c 

c 
c 
c 


COMMON/TAR/TARGX,TA 
COMMON/PAR/X(200) ,Y 

MOVE    TO    CUERENT    MILESTON 

CALL    MOVEA  (X(I)  ,Y  (I 

DRAW    DASHEE    LINE    TO    TARG 


CALL     CASHA (TARGXfTA 

RETURN 
END 

cccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccc 

ccccc 

cccccccccccccccccccccccccccc 

cccccccccccccccccccccccccccc 

SOEROUTINE   CONCHG 
COMMON/PAR3/TMD.ACLIFT 
C0MM0N/PAR4/APPMAX,HTM 
COMMON /TAR/TARGX,TA RGY 
CALL    NEWPAG 


C 

c 
c 


WRITE    INSTRUCTIONS 


30 


10 


11 


12 


13 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

READf. 

IF     ((K 


100) 
105 
110 
115- 
120 
125 
130 
135 
.  140 


0)     .OR.      (K 
#  7  , 


TO  (20  0,2.3,4,5,6 
WRITE  (6,20  2) 

READ  (5.*)  CLMAX 

GO    TO   3  0 
WRITE  (6,  20  3) 

READ  (5.*)  WL 

GO    TO    3  0 
WRITE  (6,20  4) 

REAE  (5.*)  SPDMIN 

GO    TO    3  0 
WRITE  (6,20  5) 

REAE  (5.*)  GMAX 

GO    TO   3  0 
WRITE  (6,206) 

REAE(5.a)  HTMIN 

GO    TO   30 
WRITE  (6,20  7) 

REAE  (5.*)  HTHAX 

GO    TO    3  0 
WRITE  (6,20  8) 

REAE  (5.*)  POPMIN 

GO    TO    3  0 
WRITE  (6,209) 

REAE  (5.^)  APPMAX 

GO    TO   3  0 
WRITE  (6,210) 

READ  (5.*)     TMAX 

GO    TO   3  0 
WRITE(6,21  1) 

REAE  (5.**)  CDO 

GO    TO    3  0 
WRITE  (6,212) 

REAE  (5.*    CDK 

GO    TO    3  0 
WRITE  (6,21 3) 

REAE(5,^)  VMAX1 


RGY 

T3  1 

(200) 

T3  1 

T3  1 

E  COORDINATES 

T3  1 

T3  1 

)) 

T3  1 

T3  1 

ET 

T3  1 

T3  1 

RGY,  1) 

T3  1 

T3  1 

T3  1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3  1 

CONCHG 

CCCCCT3  1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3  1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT3 

T3  1 

.CLMAX. WL, TMAX  ,CD0 .CDK, V  MA X1 , VMAX2 
IN, HT MAX, SPDMIN, GMAX, POPMIN 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

-GT.  17))  GO  TO  30 

T3  1 

8,9,10,1  1,12, 13,14,15, 16,17)  ,K 

T3  1 
T3  1 
T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 

T3  1 
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FILE:    T3 


FORTRAN      A 


NAVAL    POSTGRADUATE    SCHOOL 


C 

c 

c 


14 
15 

16 


;) 


GO  TO  3  0 
WRITE  (6,21 
READ  (5.  - 
GO  TO  3  0 
WRITE  (6,215 
READ  (5.* 
GO    TO    3  0 


VMAX2 


TARGX,TARGY 
2TER    VALUES    FROM    THE    DIS 


C 

c 
c 


REWIND    16 

READ  (16, 
READ  (16, 
READ  (16, 
GO    TO    3  0 


300)CLMAX, WL,SPDMIN,GM 
300) POPMIN, APPMAX,TMAX 
300) VMAX2,TARGX,TARGY 


AX,HTMIN,HTMAX 
,CD0 ,CDK,VMAX1 


WRITE    PARAMETER    VALUES    TO    THE    TERMINAL 


17 


WRITE  i  6*25  0) 


C 
C 
C 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
GO  TO 


6 
6 
6 
6,2 

6  A3 

30 


\l 


00) CLMAX,WL,SPDMIN,GMA 

55) 

00)  POPMIN,  APPMAX,TMAX, 

60) 

00)  VMAX2,TARGX,TARGY 


X,HTMIN,HTMAX 
CD0,CDK,VMAX1 


SAVE    PARAMETER    VALUES    ON    DISK    AND    RETURN    TO    CALLING    ROUTINE 


200 


100 
105 
110 

1  15 
120 
125 

130 
135 

mo 

2  02 
203 
2  04 
2  05 
206 
2  07 
208 
209 
210 
211 
212 
213 
214 
215 
2  50 
255 

260 
300 


REWIND    16 
WRITE  (16, 
WRITE(16, 
WRITE  (16, 
RETURN 
FORMAT 


FORMAT  ('     SELEC 

FORMATS     2=HAX 

FORMAT?'     5=MAX 

FORMAT/'     8=DIS 

FORMAT?'     9=MAX 

$    LIFT') 

FORMATf'     12=LI 

FORMAT?'     14=MA 

FORMAT?'     16=RE 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT?'     ENTER 

FORMAT r«     MAX    C 

FORMAT!''     POP-U 

$MAX    SPD    WITH    B 

FORMAT (•     MAX    S 

FORMAT(6F12.4) 

END 

CCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCC 

C  SUBRO 

CCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCC 

SUBROUTINE    ER 

COMMON/PAR/X  (2 

CCMMON/PAR1/XD 

COMMON/PAR2/T ( 


300)CLMAX. WL,SPDMIN,GM 
300) POPMIN, APP MA X.T MAX 
300) VMAX2,TARGX,TARGY 

') 

T  PARAMETER  TO  BE  CHAN 
LIFT  COEFF;  3=WING  LO 
G    FORCE;    6=MIN    ALT;    7 

TANCE  TO  TARGET  BEFORE 
APPROACH    ALT;     10=MAX 


AX.HTMIN,HTMAX 
,CD0  ,CDK,VMAX1 


GED:     1  =  NO    MORE    CHANGES') 
ADING;    U=STALL    SPEED' ) 
=  MAX    ALT(<2200    MTR)  •) 

POPUP    ALLOWED') 
T/W    RATIO;     11=DRAG    CDEF.     W/0 


FT    DRAG    CO 

X    SPD    W/O 

AD    PARAMET 

MAX    LIFT 

WING    LOAD 

STALL    SPE 

MAX    G    FOR 

MINIMUM    A 

MAXIMUM    A 

MINIMUM    D 

MAXIMUM    A 

MAX    THRUS 

DRAG     COEF 

LIFT    DRAG 

MAX    SPEED 

MAX    SPEED 

TARGET    X 

L         WING    L 

P    DIST         A 

OMB') 

PD    W/O    30M 


NSTANT 
BOMB; 
ER    FIL 
COEFFI 
ING') 
ED') 
CE    ALL 
LTITUD 
LTITUD 
ISTANC 
PPROAC 
T    TO    W 
FICIEN 
CONST 
CARRY 
AFTER 
AND    Y 
D       STA 
PPR.HT 


:    13=M 

15=TAR 

E;     17  = 

CIENT' 

OWED') 

E«) 

E    (LES 
E   TO   r 

H    ALTI 

EIGHT 

T    FOR 

ANT') 
ING    A 

BOMB 
COORDI 
LL    SPD 
.       MAX 


AX  SPD  WITH  BOMB' 
GET  COORDINATES  ' 
LIST  PARAMETERS') 
) 


S    THAN    2000    METERS) •) 

ARGET    BEFORE    POP-UP    ALLOWED') 

TUDE') 

ALLOWED') 

ZERO    LIFT') 

BOMB') 

IS    RELEASED' ) 

NATES') 

MAX    G         MIN.HT.       MAX.HT.  ») 
THRUST       CD0       DRAG    CONSTANT 


B 


TARGET    X    COORD. 


TARGET    Y    COORD. ') 


ccccccccccccccccccccc- cc 
ccccccccccccccccccccccc 

c 

ccccccccccccccccccccccc 
ccccccccccccccccccccccc 


cccccccccccccccc  cccccc 
cccccccccccccccccccccc 

UTINE     ERRCHK 

CCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCC 

RCHK(ISRR) 

00)  .Y  (200[ ,Z  (2  00) ,HDG (200)  ,CA(23  0)  ,  RA  (20  0)  ,  VEL  (200) 

OT(20  0)  ,YDOT(2  00)  ,ZDOT  (200)  ,MNUM,MBR 

200) 


T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
T3 
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FILE:     T3  FORTRAN      A  NAVAL    POSTGRADUATE    SCH03L 

COMMON /TAR/TARGX,TARGY  T3 

COMMON/PAR3/TMD,ACLIFT.CLMAX,WL,TMAX ,CD0,CDK  T3 

CCMM0N/PAR4/APPMAX, HTMIN, HTMAX , SPDMI N, GM AX, POP  BIN  T3 

DATA    TMSAV/-  1./  T3 

DX=TARGX-X(MNUM)  T3 

DY=TARGY-Y(MNUM)  T3 

DIST=SQRT(DXO*2    +    DY***2)  T3 


C 


C 


:=X(MNUM)  -  X  (MNOM-1) 
:=Y]MNUMJ-  YJMNUM-1). 
:HDG=ATAN2(DY,DX)*57. 


T3 


C    INITIALIZE  POPALT  AND  TMSA7  T3 

C  T3 

IF  (fMNUM.NE.2)  . AND- (TMSAV. NE .-1 .) )  GO  TO  15                       T3 

POPALT=0.  T3 

TMSAV=TMAX  T3 

15         IF(MBR.EC.O    .AND.    T  MAX.  NE.  TMSAV)     TMAX=TMSAV  T3 

CALL    ERRMK(22)  T3 

IF    (MBR     .GE.     1)     GOTO    30  T3 

IF     ((CIST    .LT.    POPMIN).OR.      (Z(MNUM)     .LT.     APPMAX))     GOTO    30  T3 

IERR=4  T3 

FETORN  T3 

30         IF    (DIST.LE.  POPMIN    .AND.     Z  (MNU  M)  .  GT.  POPALT)  POP  ALT=Z  (MNUM)                           T3 

35         IF(Z(MNUM)     .  GE.    HTMIN)     GOTO    40  T3 

IERR=3  T3 

BETURN  T3 

40         IF    (Z(MNUM)     .LE.     HTMAX)     GOTO    45  T3 

IERR=4  T3 

RETURN  T3 

45         IF(VEL(MNUM)      .GE.    SPDMIN)     GOTO    50  T3 

IERR=5  T3 

RETORN  T3 

50  IF     (MNUM    .EQ.     2)     RETURN  T3 
IF    JACLIFT    .LE.    GMAX)     GO    TO    51  T3 

IERR=1  T3 

RETURN  T3 

C  T3 

C         COMPUTE    DRAG    AND    LIFT    FORCES  T3 

C  T3 

51  RH0=0.0256**EXP  (-0.103&  (Z  (MNUM)  /1000.  )  )                                                                            T3 


IF    (Z(MNUM)     .GE.     10670.)     GO    TO    52  T3 

RH0=0. 0079 3* EXP (-0.1 56* (Z( MNUM)  -10670.) /13  00.)  T3 

52         CL=2*ACLIFT/ (RHO*  (VEL  (MNUM)  **2) /WL  T3 


IF    (CL    .IE.    CLMAX)     GO    TO    53  T3 

IERR=17  T3 

RETURN  T3 

53  DS=((CDO*CDK^CL*CL)/CL)*ACLIFT  T3 

TW=TMD+DW  T3 


IF     (JTW     .LE.  _TMAX)     .  AND.  __(TW_.  GE.    0.))     SOTO    55  T3 

[TMD+D;     .LE.     0)     I]        =1'  T3 


IF     (TW    .GT.    TMAX)     IERR  =  18  T3 

DW=(RH0*  (VEL(MNUM)**2)/WL)  * (0 . 05 +CD0+CDK* (CL** 2)  )  /2.  T3 


IF     (IERR     .NE.    0)        RETURN  T3 

55         IF    (MNUM    .NE.     MBR)     RETURN  T3 

T3 

C               EVALUATE    BOMBING    RUN  T3 

C  T3 

DT=T(MNUM)-T  (MNUM-1)  T3 

TGTHDG  =  ATAN2  (DY,DX)  *57.  29578  T3 

IF    (TGTHDG    . LT.    0.)     TGTH DG=TGT HDG+36 0.  T3 

DX=X(MNUM)-    X  (MNUM-1)  T3 


DY=Y(MNUM)-    Y(MNUM-1)  T3 

ACHDG=ATAN2(DY,DX)*57. 29578  T3 

IF     (    ACHDG    .LT.     0.)        ACHDG  =  ACHDG*  360  .  T3 

HDGLMT=AES  (TGTHDG-ACHDG)  T3 

IF    (POPALT   .GE.1000.)     GOTO    58  T3 

IERR=6  T3 

RETURN  T3 

58         IF    (Z(MNUM)     .GE.  100.)     GOTO    60  T3 

IERR=7  T3 

RETURN  T3 

60         IF    (Z(MNUM)     .LE.     2000.)     GOTO   65  T3 

IERR=8  T3 

RETURN  T3 

65         IF    (DIST    .LE.     2000.)     GOTO    75  T3 
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IERR=9  T3  1 

RETURN  T3  1 

75          IF     (HDGLHT    .LE.    5.)     GOTO    80  T3  1 

IERR=10  T3  1 

RETURN  T3  1 

80         IF    (DT    .  GE.     2.33)  GOTO    85                                                                                                             T3  1 

IERR=11  T3  1 

85         TMAX=1.  2*TMAX  T3  1 

RETURN  T3  1 

END  T3  1 
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APPENDIX  C 
KBPIP  MODIFIED  MODULES 


COMMON    /LOC/X1  ,Y1  ,Z1  ,V1,  LTR.LTR2 

COMMON /MN/   IBAOD, SIN Y.HAXY#HINX,HAXX, MINI ,  MAX1 


:00)' .Y  (260)  ,z'(200)  Jhdg  (  560) 
IOT  (200)  ,YDOT(200)  ,ZDOT  (200 


COMMON/PAR/X  (2  00)  .Y  (200)  ,Z  (2  00)  ,  HDG  (  2001  ,  CA  (20  0)  ,RA  (200)  ,  VEL  (20  0) 


COMMON/PAR 1/XDOT  (20  0)  ,Yd6t(200J  ,ZDOT  (200) , MNUM , MBR 

COMMON/PAR2/T (200) , XGUN (7)  , YGU N (7) ,ZGUN(7)  ,XSAM, TSAM,ZSAM, GB (7) 

COMMON /OFT/I  GUN, I PNCH,IEXT, ISAM, I  MP,  KER 

COMMON /TAR/TARGX,  TAR  GY 
C 

C      CALL    ERRSET    SUPPRESSES    ANY    POSSIBLE    UNDERFLOW    PROBLEMS    THAT    MAY 
C      RESULT    FROM    MANIPULATION    OF    SCENARIO    PARAMETERS. 
C 

CALL    ERRSET     (208,50,-1,1,1) 

MER=0 

MNUM=0 

CALL    BEGIN 

CALL    SCENE  (0,0) 

IF    (IGUN    .NE.     1)     GOTO    250 
C 

C  ACCEPT    USER    INPUT    OF    GUN    SITES 

C 

REWIND     10 

CALL    ERRMK(16) 

LTR=0 

LTR2=0 

DO    212    1=1,6 

211  IERR=0 

CALL    XYZIN(O) 

XGUN  (I)=X1 

YGUN  (I)=Y1 

ZGUN]l)=Z1 

IF(Z1.GT.  1000.)     STOP 

IF     (I    .GE.     5)     CALL    GUNCHK  (X  1,1 1,  I  ERR) 

IF     (IERR    .EQ.     0)     GOTO    212 

CALL    ERRMK(IERR) 

GOTO     211 

212  WRITE     (10,501)  X1,Y1,Z1 
220               CALL    ERRMKMU) 

CALL    XYZIN(O) 
XSAM=X1 
YSAM=Y1 
ZSAM=Z1 

IF(Z1  .GT.  1000.)     STOP 
CALL    SAMCHK  (X1.IERR) 
IF    (IERR    .NE.     0)     GOTO    220 
WRITE  (10,  50  1)  X1,Y1,Z1 
C 

C  IGUN=2== =>    READ    GUN    SITES    FROM    DATA    FILE 

C 
250       IF    (IGUN    .NE.     0)     GO    TO    260 

DO    252    1=1,6 
252  READ (10.501) XGUN (I), YGUN (I) ,ZGUN(I) 

READ(10,501)      XSAM,YSAM,ZSAM 
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c 
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T1  0 

T1  0    i 

T1  0 

T1  0  ;i 

DRAW    GUN    SITES    AND    ENGAGEMENT    CIRCLES  Tl    0    i 

T1     0    ' 
265       D°    CALL^UNLOC  (XGUN  (I)  ,YGUN  (I)  ,GR  (I)  )  Tl    0  l! 

CALL    GUNLOC  (XS  AM,  YS  AM  ,  1  50.  )  Tl    0 

C  THIS     SECTION    ACCEPTS    THE    FLIGHT    MILESTONES  Tl    0: 

FTFAC=3.2808U  %}    2 

DGFAC=57. 29578  £1    0 

CALL    ERRMK(15)  ;JJ    X 

REWIND     11  ^i    XM 

300  MNUM=MNUM+1  ^    g 

C         READ    MILESTONES    FROM    THE    DISK  Tl    0  1 

302         IF    (IMP    -NE.     0)     GOTO    305  Jl  0[ 

READ(11,625)X(MNUM)  -Y(MNUM)  ,Z  (  MNU  M)  ,VEL  (MNUM)  ,LTR  Tl 

IF     (X(MNUM)     -LE.     0.1)     GOTO    302  Tl  0 

IF    JLTR    .  EQ.     1)     IMP  =  1  Tl  0   i 

LTR2=LTR  £1  2j, 

GOTO    308  Tl  0,i 

C         READ    MILESTONES    FROM    THE    TERMINAL  Tl    0 |j 

T1    o!1 


C 


C 


305         CALL    XYZIN(1)  £'    ft 

X(MNUM)  =X1  U    gji 

Y  (MNUM)  =Y1  Tl    J{, 


C 

305 

Z(MNUM)  =Z1  Tl  Oj, 

C         COMPUTE    FLIGHT    PARAMETERS    AND    CHECK    FOR    ERRORS    OR    USER    COMMANDS  Tl  0;j 

VEL(MNUM)=V1                                            _          _  Tl  0;| 

308         IF    (MNUM.EQ.1     .AND.    LTR.EQ.83)    STOP  Tl  0{, 

IF   JMNUM.EQ.1)     GOTO    300  Tl  0| 

IERR=0  Tl  Ojji 

CALL    VALSET  (IERR)  *"  ^> 

IF(((LTR.EQ.82)  .OR.  (LTR2.    EQ.    82) )  .  AND.  (IMP.  NE.  0)  )     GOTO    350  Tl  Oh 

IF      LTR    .EQ.     66)     .  Ofi.     (LTR2.     EQ.    Bfill     M§R=MNUM  Tl  Oft 

IF(    LTR    .EQ.     83)     .OR.       LTR2.     EQ.     83))     GOTO  370                                                      T1  0 

IF      IERR    .EQ.    0    )     CALL    ERRCHK  (IERR)  _                                                    Tl  0;; 

IF    ((IERR*KER.EQ.O) .AND. (IERR    .NE.12))GOTO  310                                                      Tl  0 U\ 

CALL    ERRMK(IERR)                        ^mm  Tl  Ob, 

IF     (IMP    .NE.    0)    GO    TO    305  J1  0  ,, 

CALL    ERRMK(20)  Tl  Ob 

READ  (5,S)  ICOR  Tl  0|,=  j 

IF    (ICOR.  EQ.1)     GO    TO    305  Tl  Ob 

C         MILESTONE    ACCEPTED,    RESTART    THE    SEQUENCE  Tl 


3  10          CALL    °THPLT  ^       W 

IF    (LTR.EQ.65    .OR.     LTR2.EQ.65)  CALL     AIMPT(INUM)                                                    Tl    Cv 

GOTO    3  00  Tl 

C                       THIS    SECTION    RESETS    THE    DATA  Tl 


T1 


350  CALL    SCENE(1,ICT)  Tl 

REWIND     19  Tl 

LTR=0  Tl 
LTR2=0 

IF(MBR     .GT.     ICT)     MBR=0  Tl 

COMPLETE    RESTART  Tl 

IF    (ICT    .GT.     1)     GOTO    352  Tl 

MNUM=0  Tl 

GOTO     2  60  Tj 

352  IF     ((ICT    .3E.     MNUM)     .AND.      (MNUM    .GE.     3))      ICT=flNUM-1  Tl 

DO    355    MNUM=2,ICT  Tl 

3  55  CALL    PTHPLT  T1 
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FILE:    T1 


FORTRAN 


NAVAL    POSTGRADUATE    SCHOOL 


C 

c 
c 


MNUM= 
GOTO 


MNUM-1 
260 


DRAW    RETAINED    MILESTONES 


3  70 


C 

c 
c 


BLANK 
CALL  P 
LAST=I 
CALL    E 


=  0. 

THPLT 

MP 

LFIN(L 


AST) 
COMPOTE    FLIGHT    PARAMETERS    FOR    FINAL    LS 


DX= 
DY= 
DZ= 
RA( 
CA( 
IF 


371 


372 


C 
C 
C 
C 


MNUM 
MNUM 
MNUM 
MtfUM)  = 
MNUM)  = 
((CX  . 
HDG( 
GOTO 
EX  . 
EX  . 
EY  . 
BY  . 
MNUM 
MNUM 
MNUM 


X  (MNUM-1 
Y  (MNUM-1 
Z(MNUM-1 


AN2  (DZ,SQRT(DX*«*2    ♦    D? 
.    0.)      .OR.      (DY    .EQ.     0. 


IUM) 
!72 


lTAN2(DY,DX) 


8-> 

0. 
0. 
0. 


.AND. 
.AND. 
.AND. 
.AND. 


'DY    .GT. 
DY    .LT. 


375 


3  76 


C 
C 
C 


CREATES 
HAVE    BEE 

REWIN 
IGUN= 
WRITE 
DO  37 
LTR= 
IF    ( 

IF    1 

WRITE 

WRITE 

WRITE 

*BLANK 

DO    37 

WRI 

WRITE( 


NEW    " 
N     INPU 


VEL  (MNUM)*COS  (HDG(MNUM 
VEL  (MNUM)  *SIN(HDG  (MNUM 
VEL  (MNUM)ftSIN(CA  (MNUM) 

PTS    LOC    "    IF    NEW    WEAPON 
T 


tt*2)  ) 

) )     GOTO    37  1 

HDG(MNUM) =1.57079 
HDG(MNUM) =-1.57079 
HDG(MNUM    =3.  14159 
HDGiMNUM) =0. 
COS  (CA(MNUM)  ) 
)  ^COS  (CA(MNUM)  ) 


OR    MILESTONE    COORDINATES 


5)     Bl 
MNUM 


IMP    .EQ.  0)  .AND.  (IGUN    .NE.     1)  >  GOTO    377 

D     11 

1 

J1  1^625)  BLANK, BLANK, BLANK, BLANK, BLANK 

0 

I    .EQ. 

I     .E 

11,62 

11,62 

11,62 


MBR)     LTR=66 
MNUM)     LTR=LAST 
!5       X(I)  ,Y(I)  ,Z(I)  ,  VEL  (I) 

7)  VEL  (1)  , MBR, BLANK, BLANK 


,LTR 

, IGU N,IG UN, 3LANK, BLANK, IGUN, 


6  1=1, 
TE  (11. 
11,625 


625|     XGUNJI)  ,YGUN(I)  ,ZGU 


)  XSAM,YSAM 
CONVERT    ANGLES     FROM    RADIANS    TO    DEGREES 


N(I) 


377       DO 


1=1, a 

iUiif 

(l)=Hd 

RESET 

217) 

3F10. 

4F10. 
i  9999 

F10.0 


380 

CA( 

RA( 

3  80  HDG 

CALL    P 

500  FORMAT 

501  FORMAT 

625  FORMAT 

626  FORMAT 

627  FORMAT 

STO 

END 

CCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCC 

C  SUB 

CCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCC 

SUBROUTINE 

COMMON/PAR/X 

COMMON/PARV 

COMMON/ERR/M 

IF     (IERR    .GT 

GOTO (1,2,3 


NUM 

I)  *DGFAC 

IJSDGFAC 

G(I)^DGFAC 


2) 

0,13) 

9.  •) 

,I2,8I1,F10.0) 


CCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCC CCCCCC 
ROUTINE  ERRMK 
CCCCCCCCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCC CCCCCC 
ERRMK  (IERR) 

(200)  .Y  (200)  ,Z  (200) ,HDG ( 
XDOT  (20  0)  .YD  OT  (2  00)  ,ZDOT 
KERX  (3)  ,MKSRY(15) 
.     20)     GOTO    85 
,4,5,6,7,8,9,10,  11,12,13 
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ccccccccccccccccccccccc 
ccccccccccccccccccccccc 

c 
ccccccccccccccccccccccc 
ccccccccccccccccccccccc 

200)  ,CA(2D0)  ,RA  (200)  ,  VEL  (200) 
(200) , MNUM, MBR 

,14, 15,16, 17,18,19,20) ,IERR 


T' 
T 

T' 
T' 
T" 
T' 
T' 
T 

r 

7" 

T' 
T" 
T' 
T' 
T' 
T' 
T' 
T' 

<n 
rj.. 

f 

T' 

T' 

T' 

T 

T' 

T 

r 

T' 
T" 
T' 
T' 

T" 

T 

T" 

T' 

T' 
T" 
T" 
T" 

T 

T' 

Of 

T' 

T 

T" 

T 

T' 
T' 
T' 

T' 
T' 
T' 
T' 
T' 

'V 

f 

T ' 

T' 

■n 


T 

T' 

T' 

T 

T 

T 

T 


FILE:    T1 


FORTRAN       A  NAVAL    POSTGRADUATE    SCHOOL 


1  WRITE(6,601) 

GOTO   7  5 

2  WRITE(6.602) 

GOTO   75 

3  WRITE(6,603) 

GOTO   75 

4  WRITE(6.  60U) 

GOTO   75 

5  WRITE{6,605) 

GOTO   75 

6  WRITE(6,606) 

GOTO   75 

7  WRITE(6,607) 

GOTO   75 

8  WRITE(6,608) 

GOTO   75 

9  WRITE(6,609) 

GOTO   75 

10  WRITE(6,610) 

GOTO   75 

11  WRITE(6,611) 

GOTO   75 

12  WRITE(6,612) 

GOTO   75 

13  WRITE(6.613) 

GOTO   85 

14  WRITE(6,614) 

GOTO   85 

15  WRITE(6.615) 

GOTO   85 

16  WRITE(6.616) 

GOTO   85 

17  WRITE(6,617) 

GOTO   75 

18  WRITE(6,618) 

GOTO   75 

19  WRITE(6.619) 

GOTO    85 

20  WRITE(6,620) 
GOTO   85 

WRITE  (6,650)X(MNUM)  ,Y  (MNUM) 
RETURN 

MAXIMUM    BRAKING 
MAX    G    EXCEEDED1) 
ALT    TOO    LOWM 
ALT    TOO    HIGH* ) 
STA  LL  ') 

POP-OP    TOO    LOW1 
BMB    DROP    LOW1) 
3MB    DROP    HI') 
TOO    FAR    FM    TGT' 


) 


) 


75 
85 

601  FORMAT 

602  FORMAT 

603  FORMAT 

604  FORMAT 

605  FORMAT 

606  FORMAT 

607  FORMAT 

608  FORMAT 

609  FORMAT 

610  FORMAT 
6  11  FORMAT 
6  12  FORMAT 
613  FORMAT 
6  14  FORMAT 
615  FORMAT 
6  16  FORMAT 
6  17  FORMAT 
618  FORMAT 
6  19  FORMAT 
620  FORMAT 
650  FORMAT 

END 

cccccccccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccccccccc 

C  SOB  ROUTINE    PTHPLT 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE   PTHPLT 

COMMON/PAR/X  (200)  ,Y  (200)  ,Z  (200 

CCMMON/PAR1/XDOT (200)  ,YDOT  (200 


,Z(MNUM)  ,VEL(MNUM) 
EXCEEDED') 


HDG>5    DEG    TO    TGT1) 
FINAL    RUN<2.33    SEC) 
NO    HORIZONTAL    MOTION' 
TOO    CLOSE    TO    TGT') 
ENTER    MISSILE    LOCATIO 
ENTER    MILESTONES') 
ENTER    GUN    LOCATIONS') 
MAX    LIFT    EXCEEDED') 
MAX    THRUST    EXCEEDED') 


) 
N') 


X    COORDINATE    LESS    THA 
DO    YOU    WANT    TO    FIX    TH 


) 


N  6  000 

E  ERR0R:0=NO,USE  THE  POINT; 1=YES» ) 
X,Y,Z,AND  VELOCITY'  ,4F9.  1) 


CCCCCC 

CCCCCC 

CCCCCC 
CCCCCC 

)'HD3i 

) ,ZDOT 


cccccccccccccccccccc 
cccccccccccccccccccc 

cccccccccccccccccccc 
cccccccccccccccccccc 


zee 
ccc 
c 
ccc 
ccc 


200)  ,CA(200)  ,RA  (200)  ,  VSL  (200) 
(200)  ,MNUM,MBR 


T1 
T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 
T1 
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COMMON    IEAUD, MINY, MAXY, MINX, MAXX  T1 

WRITE  (6  ,600)  MNDM  T1 

C  T1 

C               SAVE    MILESTONE    DATA    IN    TEMP    DATA        .  T1 

C  T1 

WRITEM9,625)X  fMNUM)  ,Y(MNUM)  ,Z  (MNUM)   ,VEL(MNUM)  ,MBR  T1 

600       FORMAT  ('     MILESTONE    ',13,'     ACCEPTED1)  T1 

625       FORMAT(4F10. 0,13)  T1 

RETURN  T1 

END  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC3CC  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCO CC  T1 

C                                                                        GUNLOC                                                                                            C  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

SUEROUTINE  GUNLOC  (GX,GY,  RAD)  T1 

COMMON  IEAUD, MINY, MAXY, MINX, MAXX, MINI, MAX1  T1 

RETURN  T1 

END  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

C                SUBROUTINE  WIN                                      C  T1 

C     THIS  ROUTINE  DEFINES  A  WINDOW  EXTENDING  FROM  LX  TO  MX  ON    C  T1 

C     THE  HORIZONTAL  AXIS,  AND  FROM  MINY  TO  MAXY  ON  THE  VERTICAL  C  T1 

C     AXIS.  THE  HORIZONTAL  RANGE  IS  RX,  THE  VERTICAL  RANGE  IS  RY  C  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

SUBROUTINE  WIN  (LX,MX ,RX, BY, JMP)  T1 

COMMON  IEAUD, MINY, MAXY  T1 

RETURN  T1 

END  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T  1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

C                           SPOT                                     C  T1 

C                       THIS    RETURNS    AN    X-Y    PAIR    AND   TWO    COMMAND    VALUES    L1SL2       C  T1 

C                       THE    ROUTINE    CREATES    A    DOT    AT    POINT    X, Y    AND    ASKS    FOR            C  T1 

C                       OPERATOR    VERIFICATION     (ASCII"N"=7  8)                                                         C  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCC  T1 

SUBROUTINE   SPOT(X,Y,L1 ,L2)  T1 


C 


C 


T1 


C  L1=0    READ    X    AND    Y  T1 


T1 
WRITEj5,600)  T1 


IF     (L1     .  EQ.     1)     GOTO    10  T1 

READ  (5.*)  X,Y  T1 


GOTO    20  T1 

C  T1 

C      L2=0    READ    ALTIT UDE, OTHERWIS E    READ    ALTITUDE,     VELOCITY,     AND    A    CMD  T1 

C  T1 

10          IF(L2.     EQ.    0)     GOTO    15  T1 

WRITE  (6,6  10)  T1 

WRITEJ6-620)  T1 

READ  (5,£)      Y,X,L1  T1 

C  T1 

C               CONVERT    COMMAND    TO    PROPER    FORMAT  T1 

C  T1 

IF(L1    .EQ.     1)     L1=65  T1 

IF(L1    -EQ.     2i     L1=66  T1 

IF(L1    .EQ.     3      L1=82  T1 

IFJL1    .EQ.    U)     L1=83  T1    # 

GOTO    20  T1    CI 

15         WRITE  (6, 630)  T1    Gi> 

READ  (5,^)  Y  T1    O'i 

20         L2=L1  T1    Oi 

6  00       FORMAT (•     ENTER    X    AND    Y    COORDINATES')  T1     C 

6  10       FORMAT ('     ENTER    ALTITUDE, VELOCITY, AND  AN    OPTION')                                                    T1    0' 

620      FORMAT ('     OPTION:  0=NONE  ;  1  =AIM;  2=BOMB;  3=RESET;  4=STOP' )                                       T1    C 

6  30       FORMAT (•     ENTER    ALTITUDE1)  T1    0 

RETURN  T1    0 

END  T1    0"' 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCC3CCCCCCCCCCCCC  T1     0 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCZCC  T1     C 

C                                       SUBROUTINE    SCENE  C                    T1    0 
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FILE:    T1  FORTRAN      A  NAVAL    POSTGRADUATE    SCHOOL 

C  THIS    ROUTINE    DRAWS    THE    ATTACK    MAP  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

SUBROUTINE   SCENE  (IRQ ,ICT)  T1 

COMMON    /ICC/X1  ,Y1  ,ZT,V1,LTR.LTR2  T1 
COMMON/PAR/X  (2  00)  .  Y  (200)  ,  Z  (2  00)  ,HDG(200)  ,  Ck  (20  0)  ,  RA  (200)  ,  7 EL  (200)     T1 

C0MM0N/ERR/MKERX(3)  ,MKERY (15)  T1 

COMMON/MN/IBAUD,MINY,MAXY,MINX,MAXX,  MINI, M AX  1  T1 


C 


IF 


C 


C 


C 


C 


T1 


C  ASK    USER    FOR    RESET    NUMBER  T1 

C  T1 

(IRQ    .EQ.     0)     GOTO    10  T1 

WRITEJ6.600)  T1 

READ  (5,£)  ICT  T1 


T1 


C               DISPLAY    DATA     FOR    FINAL    POINT    OF   THE     RESET    AS    OPERATOR    AID  T1 

C  T1 

WRITE  (6r650)  X  (ICT)  ,  Y  (ICT)  ,Z  (ICT)  ,  VEL(ICT)  T1 

10          RETURN  T1 

600       FORMATC     AT    WHICH    MILESTONE    DO    YOU    WISH   TO    RESTART')  T1 

650       FORMATf'     X,Y,Z,AND    VELOCITY'  ,  4F9.  1)  T1 

END  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC3CC  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

C                           XYZIN                                    C  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC3CC  T1 

SUBROUTINE   XYZIN(IV)  T1 

COMMON    /LOC/X1 ,Yl,Z1,V1, LTR,LTR2  T1 

COMMON    IEAUD,MINY,MAXY, MINX. MAXX, MINI, MAX1  T1 

CALL   WIN(MINX,MAXX,  18000.  ,  12000. r  1)  T1 


T1 


C         GET    X,Y    AND    THE    FIRST    COMMAND  T1 

C  T1 

LTR=0  T1 

CALL   SPOT  (X1  ,Y1.LTR.LDM)  T1 

CALL    WIN (MINI, MAX1 r350. , 2200  . ,  1)  T1 

LTR2=1  T1 

LDM=IV  T1 


T1 


C         GET    VEL    AND, IF    IV=1,ALT    AND    THE    SECOND    COMMAND  T1 

C  T1 

CALL    SPOT(V1 ,Z1,LTR2,LDM)  T1 

C  T1 

C    CONVERT  LOKER  CASE  TO  UPPER  CASE  T1 

C  T1 

IF    (LTR     .GT.     96)     LTR=LTR-32  T1 

IF   JLTR2    .GT.    96)     LTR2=LTR2-32  T1 

RETURN  T1 

END  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T1 

C  SUBROUTINE    BEGIN  C  T1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCC  T 1 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCZCC  T1 

SUBROUTINE   BEGIN  T1 

COMMON/MN/IBAUD,MINY.MAXY,MINX.MAXX,  MINI  , MAX  1,  MAP  T1 

CCMMON/OPT/IGUN,IPNCH,IEXT, ISAM, IMP,  KER  T1 


T> 


1 


C         READ    USER    OPTIONS  T1 

C  T1 

50         WRITE     (6.600)  T1 

READ     (5.*)    IGUN  T1 

WRITE     (6,630)  T1 

RE  AD  (5,*)  IMP  T1 

WRITE(6.635)  T1 

READiS,'5)  KER  T1 

WRITE(6,6aO)  T1 

READfS.^JKON  T1 


IF     (KON    .NE.     0)     CALL    CONCHG  T1 

600       FORMAT (•     GUNS:0=DISK    FILE; 1=TERMINAL : 2=PRESET    ')  T1 

630       FORMATf'     MILESTONE    INPUT:    0=DISK    FILE;    1=TERMINAL')  T1 

635       FORMAT(»     ERROR    CHECKING:     0=NO    CHECKING;     1=CHECK    FOR  ERRORS')                   T1 


FILE:    T1  FORTRAN       A  NAVAL    POSTGRADUATE    SCHODL 

6U0       FORMAT (•     FLIGHT    S    GAME    PARAMETERS:    0=DEFAULT;     1=USER    INPUT1)  T 

C         DUMMY    SCREEN   WINDOW    COORDINATES  T 

c  1 

MAXX=1  T 

MINX=1  T 

MAX1=1  T 

MIN1=MAXX+10  T 

MAXY=1  T 

MINY=1  T 

MAXY=777-MAXY  T 

MINY=777-MINY  T 

RETURN  T 

END  T 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC         T 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT 

CCCCC  AIMPT  CCCCCT 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT 

SUBROUTINE    AIMPT  (I)  T 

COMMON/TAR/TARGX.TARGY  T 

COMMON/PAR/X(200J  ,Y  (200)  T 


C 


C         COMPOTE    DISTANCE    TO    THE    TARGET  T 

C  T 

DX=TARGX-X(I)  T 

DY=TARGY-Y]l)  T 

DIST=SQRT  (DX&DX    «-DYADY)  T 

C  T 

C         WRITE   DISTANCE    TO   TARGET    AND    DIRECTIONS    FOR    ALIGNMENT    TO    USER  T 

C  T 

WRITE  (6,10)  DIST  T 

EX=100.«DX/DIST  T 

DY=100.**DY/DIST  T 

WRITE  (6,15)      DX  T 

WRITE  (6, 20)     DY  T 

10         FORMAT (•     DISTANCE    TO    TARGET    ISf,F8.1,'    METERS1)  T 

15          FORMAT?'     INCREMENT    X  •  ,  F8 .  1  ,  «     METERS     FOR    EVERY     100  MTRS    TO    TGTM           T 

20         FORMAT (»     INCREMENT    Y ■ , F8 . 1 , ■     METERS    FOR    EVERY    100  MTRS    TO    TGT')          T 

RETURN  T 

END  T 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCT 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC         T 

CCCCC                                                                     ELFIN  CCCCC       T 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC         T 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC         T 

SUBROUTINE    ELFIN(LAST)  T 

COMMON/OPT/IGUN,IPNCH,IEXT, ISAM, IMP,  KER  T 

COMMON/MN/   IBAUD,MINY, MAXY, MINX, MAXX , MINI ,MAX1  T 

C  ^ 

C         OLD     (LAST=0)    OR    NEW     (LAST=1)     FLIGHT    PATH?  T 

IF  (LAST     .EQ-     0)     GOTO    20  T 

C  T 

C         REQUEST    USER   OUTPUT    OPTIONS  T 

C  T 

15                 WRITE  (6,595)  T 

READ  (5  ,*)  LAST  T 

IF     (LAST.GE.2     .OR.     LAST.  LT.  0)      GO    TO    15  T 

LAST=1    +    82*LAST  T 

20         WRITE(6,610)  T 

WRITE J6,  620)  T 

READ(5,*)IPNCH  T 

C 

C          IF    MILESTONES    CAME    FROM    DISK,     RETURN    END    OF    FILE    MARKER  T 
C 


IF  (LAST  .EQ.  0)  LAST=83 
IF  (IPNCH  .EQ.  0)  RETURN 
IF  (IPNCH.EQ.  2)     GOTO    100  T 

WRITE  (6,6  30) 

READ  (5,*)  IEXT 
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FILE:    T1 


FORTRAN       A  NAVAL    POSTGRADUATE    SCHOOL 


100 


595 
610 
6  20 
630 
640 


6,6U0| 
((ISAM    I 


EQ.     1)     RETURN 


SAM 
LT. 


ARE  YOU  FINISHED  WITH 
OUTPUT  FILE:  0=  NO  OUT 
2= MICE  F 
EXTENDED  OUTPUT;  0=NO 
MISSILE    TYPE    BETWEEN 


IFflPNCH 
WRITE(6,640 

READ 

IF 
RETURN 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCC  CONCHG 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SUEROUTINE   CONCHG 
COMMON/PAR3/TMD,ACLIFT,CLMAX.W 
C0MM0N/PAR4/APPMAXrHTMIN,HTMAX 
COMMON /TAR/T ARGX, TAR GY 


1)     .OR.     (ISAM    .GT.     7))      GOTO    100 


THIS 
PUT;    1 
ILE    ON 
T    WANT 
1    AND 

CCCCCC 
CCCCCC 

CCCCCC 

CCCCCC 

L,TMAX 
,SPDMI 


FLIGHTPATH:     0=NO;     1  =  YSS') 

=P001     FILE    ONLY'f 

LY;    3=P001    5    MICE    ?IL 

ED;     1=EXTENDED    OUTPUT 

7') 


ES 


CCCC CCCCCC CCCCCCCCCCC 

ccccccccccccccccccccc 

ccccccccccccccccccccc 
ccccccccccccccccccccc 

,CD0 ,CDK,VMAX1,VMAX2 
N,GMAX,POPMIN 


C 
C 

c 


WRITE    INSTRUCTIONS 


30 


8 


10 


1  1 


12 


13 


14 


100) 

105 

110 

115 

120, 

125J 

130 

135 

140 

f(K     .LE. 
TO(200.2 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE  . 
WRITE(6 
WRITE  (6 
READ 
IF 
GO 


K 

V 


WRITE  (6,202 


READ  (5    *)CLMAX 

GO  TO  30 
WRITE  (6,203) 

READ  (5  t*)WL 

GO  TO  30 
WRITE  (6,2  04) 

READ(5f*)SPDMIN 

GO  TO  30 
WRITE  (6,205) 

READ(5.*)GMAX 

GO  TO  30 
WRITE  (6,206) 

READ(5.*)HTMIN 

GO  TO  30 
WRITE  (6,207) 

READ  (5  .6)  HT MAX 

GO  TO  30 
WRITE  (6,208) 

READ(5.*)POPMIN 

GO  TO  30 
WRITE  (6,209) 

READ(5.*j  APPMAX 

GO  TO  30 
WRITE  (6,210) 

READ  (5.*)     TMAX 

GO  TO  30 
WRITE  (6,211) 

READ(5.*)CD0 

GO  TO  30 
WRITE  (6,212) 

READ(5.^)CDK 

GO  TO  30 
WRITE  (6,213) 

READ  (5£*j  VMAX1 

GO  TO  30 
WRITE  (6,214) 


(K    .GT.     17 


)  )     GO 

4;5;6,7,"8;9;io,i  1,12,1 


TO    3  0 
3,14,15,16,17) ,K 


T1 
T1 
T1 

T1 
T1 
T1 
T1 
T1 
T1 
T1 
T1 

CCCCCCCCCT1 

CCCCCCCCCT1 

CCCCCT1 

CCCCCCCCCT1 

CCCCCCCCCT1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 

T1 
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FILE:    T1 


FORTRAN 


NAVAL    POSTGRADUATE    SCHOOL 


15 


C 
C 

c 


READ  (5 
GO    TO 
WRITE  (6,2 
READ(5 
GO    TO 


*)VMAX2 
30 

15) 

,*)TARGX, TARGY 

30 


READ    NEW    PARAMETER    VALUES    FROM    THE    DISK 


16 


REWIND    16 
READ 
READ 
READ 
GO    TO 


16 
16 
16 
30 


,300) CLMAX,WL,SP 
,300)  POPMIN, APPM 
,300) VMAX2,TARGX 


DMIN,GMAX,HTMIN,  HTMAX 
AX,TMAX,CD0,CDK, VMAX1 
rTARGY 


C 

c 
c 


17 


WRITE    PARAMETER    VALUES    TO    THE    TERMINAL 

) 

300 


C 
C 

c 


WRITE J6, 2 
WRITE  " 
WRITE 
WRITE 
WRITE 
WRITE 
GO  TO 


50 
6' 

I' 

k 

30 


)CLMAX, WL,SPD 
255  i 

300    POPMIN,APPMA 
260  i 
300) VMAX2,TARGX, 


MIN,GMAX,HTMIN,HTMAX 
X,TMAX ,CD0 ,CDK,7MAX1 
TARGY 


SAVE    PARAMETER    VALUES    ON    DISK    AND    RETURN    TO    CALLING    ROUTINE 


200  REWIND    16 

WRITEf 

WRITE? 

WRITE( 

RETURN 

100       FORMAT  (' 

105       FORMAT?'     SEL 

110       FORMAT?'     2=M 

115       FORMAT?1     5=M 

120       FORMAT  (•     8=D 

125       FORMAT ('     9=M 

$    LIFT') 
130       FORMAT  ('     12= 
135       FORMAT?1     14= 
140       FORMAT?'     16= 
2  02       FORMAT?'     ENT 

203  FORMAT?'     ENT 

204  FORMAT?'  ENT 
2  05  FORMAT?'  ENT 
206  FORMAT?'  ENT 
2  07       FORMAT?'     ENT 

208  FORMAT?'     ENT 

209  FORMAT?'     ENT 

210  FORMAT?'     ENT 

211  FORMAT?'     ENT 

212  FORMAT?'     ENT 

213  FORMAT?'     ENT 

214  FORMAT?'  ENT 
2  15  FORMAT?'  ENT 
250  FORMAT?'  MAX 
255       FORMAT?'     POP 

*MAX    SPD     WITH 
260       FORMAT {'     MAX 
300       FORMAT  (6F12- 
END 

cccccccccccccccccc 
cccccccccccccccccc 

C  SUB 

CCCCCCCCCCCCCCCCCC 

CCCCCCCCCCCCCCCCCC 

SUBROUTINE 

COMMON/PAR/X 

CCMMON/PAR1/ 

COMMON/PAR2/ 

COMMON/TAR/T 

COMMON/PAR3/ 


16,300)  CLMAX,WL,SP 
16,300) POPMIN, APPM 
16,300) VMAX2,TARGX 


ECT    PARAMETER    TO    B 
AX    LIFT    COEFF;     3=W 
AX    G    FORCE;     6=MIN 
ISTANCE    TO    TARGET 
AX    APPROACH    ALT:     1 


LIFT 
MAX  S 
READ 
ER  MA 
ER  WI 
ER  ST 
ER  MA 
ER  MI 
ER  MA 
ER  MI 
ER  MA 
ER  MA 
ER  DR 
ER  LI 
ER  MA 
ER  MA 
ER    TA 

CL 
-UP    D 
BOMB 
SPD 


DRAG  CONSTANT 
PD  W/O  BOMB: 
PARAMETER  FIL 
X  LIFT  COEFFI 
NG  LOADING') 
ALL  SPEED*) 
X  G  FORCE  ALL 
NIMUM  ALTITUD 
XIMUM  ALTITUD 
NIMUM  DISTANC 
XIMUM  APPROAC 
X  THRUST  TO  W 
AG  COEFFICIEN 
FT  DRAG  CONST 
X  SPEED  CARRY 
X  SPEED  AFTER 
RGET    X    AND    Y 

WING    LD       STA 
1ST         APPR.HT 

«) 

W/O    BOMB  T 


DMI N, G  M AX, HTMIN, HTMAX 
AX,TMAX,CDO ,CDK, VMAX1 
, TARGY 

•) 

E    CHANGED:     1=NO    MORE    CHANGES') 

ING    LOADING;    4=STALL    SPEED') 

ALT;    7=MAX    ALT(<2200    MTP)') 

BEFORE    POPUP    ALLOWED') 

0=MAX    T/W    RATIO;     11=DRAG    COEF.    W/O 

:     13=MAX   SPD    WITH    BOMB') 
15=TARGET    COORDINATES     ') 
E;     17=LIST    PARAMETERS') 
CIENT'  ) 


OWED') 
E') 

E    (LESS    THAN    2000    METERS)') 

E   TO    TARGET    BEFORE    POP-UP    ALLOWED') 

H    ALTITUDE') 

EIGHT     ALLOWED') 

T    FOR    ZERO    LIFT') 

ANT') 

ING    A     BOMB') 

BOMB     IS    RELEASED' ) 
COORDINATES  •) 

LL    SPD  MAX    G  MIN.HT.       MAX.HT.') 

.       MAX    THRUST       CDO       DRAG    CONSTANT 


ARGET  X  COORD. 


TARGET  Y  COORD. •) 


CCCCCCCCCC 

cccccccccc 

RO  UT I NE    ER 
CCCCCCCCCC 

cccccccccc 

ERRCHKJIER 
(200)  .Y  (20 
XDOT  (200)  , 
T(200) 

ARGX, TARGY 


cccccccc 
cccccccc 

RCHK 

CCCCCCCC 

CCCCCCCC 

ol  ,Z  (200 
YDOT  ?200 


CCCCCCCCCC CCCCCCCCCCCCCCCCCCC 
CCCCCC  CCCCCCCCCCCCCCCCCCCCCCC 

c 

CCCCCC  CCCCCCCCCCCCCCCCCCCCCCC 
CCCCCC CCCCCCCCCCCCCCCCCCCCCCC 

)  ,HDG  (200)  ,CA  (20  0)  ,RA  (200)  ,  VEL(200) 
) ,ZDOr  (200) ,MNUM,MBR 


TMD,ACLIFT,CLMAX,WL,TMAX ,CD0,CDK 


T" 
T' 
T' 
T' 
T" 
T' 

r 

T' 

r 

T 

T 

T' 
T' 

T  ' 

X 

T 

T' 

T' 

T' 

T 

T' 

T' 

T' 

T' 
T' 

Tl  ' 
J. 

T' 

T" 

T' 

T' 

T" 

T' 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 
T 
T 
T 

rp  - 
J. 

T 
T 

T' 

T 

T' 

T 

T' 

T' 

T 

T 

T. 

T' 
T' 
T' 
T' 

T 
T 
T' 
T 

T' 
T' 
T" 
T' 
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c 
c 
c 


FILE:     T1  FORTRAN       A  NAVAL    POSTGRADUATE    SCHOOL 

COMMON/PAR4/APPMAX,HTMIN,HTMAX,SPDMIN,GMAX,POPMIN  T1    Oj 

DATA   TMSAV/- 1./  L\    X| 

DX=TARGX-X{MNUM)  i\    X1 

DY=TARGY-Y    MNUM              ^^^x  L\    XI 

DIST=SQRT  (DX*^2    +    DY**2)  £}    g! 

INITIALIZE    POPALT    AND    TMSAV  T]    jj! 

IF    ((MNUM.NE.2)     . AND. (TMSAV. NE. -1 .) )     GO    TO    15  T1    0 

POPAIT=0.  T1    0 

15              IF«bITb5?0X,1HD.    TMAX.NE.  TMSAV)     TMAX=TMSAV  Tl    0 

CALL    EBRMKJ22)  £l    jj ' 

IF     ("iS*     .LT.1)POPMIN):OR.      (Z(MNaM)     .LT.     APPMAX))     GOTO    30  T1    0 

IERR=a  T1     0 

30                  IF     (DIST?GT.POPMIN    .AND.     Z  (  MNUM)  .  GT. POPALT)  ?OPALT=Z  (MNUM)  Tl    0 

35                 IF(Z(MNUM)     .GE.    HTMIN)     GOTO    UO  Tl    0 

IERR=3  L\    X 

BETURN                                                  „_  ij    XI 

UO                 IF     (Z(MNUM)     .LE.     HTMAX)     GOTO   4  5  Tl    0 

IERR=4  i\    X 

BETURN                                               _    CA  iJ    X 

U5                 IF(VEL(MNUM)     .GE.    SPDMIN)     GOTO    53  Tl     0, 

J ERR  =5  Tin 

PETORN  k\    X 

50                  IF     (MNUM    .EQ.     2)      RETURN i;}    g: 

IF     (ACLIFT    .LE.    GMAX)     GO    TO    51  Tl    0 

IERR  =  1  Tin 

BETURN  %\    g 

C         COMPUTE    DRAG    AND    LIFT    FORCES  Tl     C 

°51                 RH0»0.0256*EXP(-0.103*(Z(HNOH)/10  00.))  Tl    0|| 

IF    (Z(MNUM)     .GE.     10670.       GO    TO    52  Tl    C 

RHO  =  0.00  75  3^EXP(-0.156*(Z(MNUM)  -  10670.  ) /1 0  00  . )  Tl    0,; 

52  CL=ACLIFT/(RH0*(VEL(MNUM)**2)/WL>  Tl    L 
IF     (CL    .LE.    CLMAX)     GO    TO    53  Tl     C 

IERR =17  Tl    I 

BETURN                                ^            _  ii    ii; 

53  DW=((CD0+CDK3CL*CL)/CL)*ACLIFT  Tl    C 

IF     MTW   .LE.    TMAX)     .AND.fTW    .GE.     0.))     GOTO    55  Tl    Cj 

DW=|RH0^G(VEL^MNUM)ii2?/WL)*(0.3  5*CD0+CDKMCL^2))/2.  Tl    C' 

IF     (TMD  +  DW    .LE.     0)     IERR=1  Tl    L: 

IF     (IERR     .NE.    0)       RETURN  Tl    U 

55                  IF     (MNUM    .NE.     MBR)     RETURN  *j    jj; 

C               EVALUATE    BOMBING    RUN  |1    tj 

DT=T(MNUM)-T(MNUM-1)           „rtfr„0  I]    U 

TGTHDG=ATAN2(DY,DX)  *57. 29578                     ^^  n  Tl 

IF     (TGTHDG    .LT!     0.)     TGTH DG=TGTHD G* 360 .  Tl    ({, 

DX=X(MNUM)-    X(MNUM-1)  Tl    u 

DY=Y(MNUM    -    YJMNUM-li     ^c„q  Tl 

ACHDG  =  ATAN2  (DY.DX)*  57 .  29578                    ,_  Tl    I 

IF     (    ACHDG    .LT.     0.)        ACHDG=ACHDG +360 .  Tl      , 

HDGLMT=ABS  (TGTHDG-ACHDG)           ^ n  Tl      , 

IF     (POPALT    .GE.1000.)     GOTO    58  Tl    (,« 

IERR  =6  m  1    i'.'! 

BETURN                                         ^  J  J    r; 

58                    IF     (Z(MNUM)     .GE.100. )     GOTO    60  Tl 

IERR =7  J        I 

BETURN                                                ,„  k\ 

60                  IF     (Z(MNUM)     .LE.     2000.)     GOTO    65  i" 

IERR=8  ii 


BETURN 


BETURN 
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T1 


65  IF     (DIST    .LE.     2000.)     GOTO    75  J 

IERR =9  iJ 


T1 


FILE:     T1  FORTRAN       A  NAVAL    POSTGRADUATE    SCHOD L 

75  IF     (HEGLMT    .LE.    5.)     GOTO    80 

IERR=10 

HETURN 
80  IF    (DT    .GE.     2.33)     GOTO    85 

IERR  =  1  1 
"85  TMAX=1.2*TMAX 

RETURN 
END 
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APPENDIX   D 
IBMPIP  MODIFIED  MODULES 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC3CC 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc  , 

C  SUBROUTINE    PTHPLT  C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

SDEEOUTINE   PTHPLT  , 

200)  ,HDG(200)  ,  CA(20  0)  ,  RA  (200)  ,  VEL(200) 
200) ,ZDOT  (200)   , MNUM, MBR  , 

l4INX,MAXX 

REAL*4     TX1,TY1 ,TX2,TY2  , 

LOGICAL*  1    CHARS  (12) 

TX1=X(MNUM-1)  , 


TX2=X(MNUM) 

TY1=Y(MNCM-1) 

TY2=Y(MNUM) 
C 

C         IDENTIFY    THE    MAP,    DRAW    AND    LABEL    THE    FLIGHT    LEG 
C 

CALL    WIN  (MINX.MAXX.  180  00.  ,  1200  0.  ,  0) 

CALL   GBMCVE(TX1,TY1) 

CALL    GBDRAW(TX2.TY2[ 

IF    (    MNUM    .GT.99)       IW=3 


IF    ((MNUM    .GT.9)      .  AND.  fMNUM.  LT  .  100)  )      IW=    2 
IF    (    MNUK    .LE.    9)        I»=T 


i, 


CALL    GAXITC  (1  ,  MNUM,  IW  , CHARS  ) 

CALL   GBCHAR(TX2,TY2,  2.  ,0  .  ,  IW  ,C  HARS)  , 

CALL    GSFBCE 
C 
C         SAVE    THE    PCINT    IN    'TEMP    DATA' 

C  |! 

WRITE( 19,625) X  (MNUM)  ,Y  (MNUM)  ,Z  (MNUMI    ,VEL(MNUM)  ,MBR 
625       FORMAT(4F10.  5,13)  , 

RETURN 

END  ,'( 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  ,'! 

c  gunloc  c  ■ 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc  ! 

subroutine  gunloc  fgx  ,gy,  rad1 

common/mn/ibaud,miny,maxy,minx,maxx, mini, max1  , 

real*4   x,y,dx,dy 

x=gx  ij: 

y=gy  '!; 

c  i 

C    IDENTIFY  THE  MAP  AND  PLACE  A  •+•  AT  THE  LOCATION 


C 


CALL   WIN(MINX,MAXX,  18000.,  12000.,  0)  ! 

CALL    GBMCVE(X-75.  ,Y)  I 

CALL    GBDRAW(X+75. ,Y)  I 
CALL    GBMCVE(X,Y*75.) 

CALL    GBDBAW(X,  Y-75.  )  ,i! 
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C  T2 

C         DETERMINE     NUMBER    OF    STEPS    TO    BE    USED  T2 

C  -  T2 

ISIEP=3  T2 

IF    (RAD.  LI.     1600.)     ISTEP=6  T2 

C  "2 

C         DRAW    A    CIRCLE    AROUND    THE    SITE  T2 

C  T2 

DO    10    I=3,180.ISTEP  T2 

ANGLE^frO. 034907  T2 

DX=RAE*COS  (ANGLE)  +X  T2 

DY=RAC*jSIN]aNGLEJl +Y  T2 

CALL    GBMOVE(DX  +  10.,DY)  T2 

10       CALL    GBDFAW(DX-10.,DY) 

BETURN 

END 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  SPOT  C 

C  THIS    RETURNS    AN    X-Y    PAIR    AND   TWO    COMMAND    VALUES    L1SL2       C 

C  THE    RCUTINE    CREATES    A    DOT    AT    POINT    X, Y    AND    ASKS    FOR  C 

C  OPERATOR    VERIFICATION     (ASCI  I"N  "=7  8)  C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC3CC 

SUBROUTINE    S POT (X , Y#L1 , L2) 

REAL^U    TX,TY,DOT 

INTEGERS    L,M,KEY 
C 

C         READ    THE    CURSOR 
C 
100       CALL    GBRXYC(M,L,KEY,TX,TY) 

DOT=U0. 

IF(TX    .LT.350.)     DOT=9. 
C 

C         MARK    THE    SPOT 
C 

CALL    GBGEOT(DOT,TX,TY) 

X  =  TX 

Y=TY 
C 

C         DOES    THE    USER    ACCEPT    THE    SPOT? 
C 

CALL    GBRXYC(M,L,KEY,TXCTY) 

IF       (M     .  EQ.     0)     GOTO     100 
C 

C         CONVERT    THE    COMMAND    TO    THE    PROPER    FORMAT 
C 

L1=0 

IF    (M     .NE.      1)     GOTO    1  10 
IF     (L   .  EQ.     1)     L1  =  65 
IF(L    .EQ.     2)     L1=66 
IF  (L    .EQ.    3)     L1=82 
IF    L    .EQ.4)     L1  =  83 
110  L2=L1 

RETURN 

END 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC3CC 
C  SCENE  C 

C  THIS    ROUTINE    DRAWS    THE    ATTACK    MAP 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE   S CENE  (IRQ ,ICT) 

COMMON/ERR/MKERX  (3)  ,  MKERY  (18) 

COMMON/MN/IBAUD.MINY.MAXY,MINX,MAXX, MINI ,  MAX1 

COMMON /PAR/X  (2  00)  ,Y  (200)  ,Z  (200 )  ,  HDG  (  200)  , CA(20  0) ,RA  (200)  ,  VEL  (20  0) 

COMMON /TAR/TARGX,TARGY 

REAL*4    GX,GY 

LOGICAL^  1    CHARS  (20) 

ICT=0 
C 
C  ERASE    THE    SCREEN 
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C 

CALL    GSERSE 

CALL    DSTERM 
C 
C         READ    USER    OPTIONS 

C 

WRITE(6,635) 

READ  (5,*)" MAP 

IF  (IRQ    .  EQ.    0)     GOTO     19  5 

WRITE  (6.63  0) 

READ (5,*)     ICT 

r  ?h|HROUTINEYREADS  X,Y  PAIRS  FROM  FILE  09.  A  -2.0,0  INDICATES 
C  END  OF  FILE, -0.5(0  INDICATES  A  MOVErALL  OTHER  VALUES  ARE  PO- 
C         SITIVE    AND    RESULT    IN    A    DRAW    TO    THAT    POINT. 

C         RE-INITIALIZE    THE    SCREEN 

195       CALI    WIMMINX.MAXX.18000., 12000. ,1) 
IF     (MAP     .EQ.     0)     GOTO    210 
REWIND    9 
READ  (9,501)     GX,GT 

200  READ(9,501J  GX,GY 
CALL  GEMOVE(GX,GY) 

201  READ(9,501)  GX,GY 

IF     (GX.  LT.-1)    GOTO    210 
IF       GX.  LT.    0)     GOTO    200 
CALI    GBDRAW  (GX,GY) 
GOTO     201 

C 

C         MARK    THE    TARGET 

C210       CALL    GUNLOC(TARGX,TARGY,  150.) 
CALL    GUNLOC(TARGX,TARGY,300.) 

C         DRAW    TIC    MARKS    EVERY    2000    MTRS 

DO    215    1=1,8 
IW=2*I 
CALL    GBMOVE  (1*2000. ,1000.) 

CALL    GBDRAW 
CALL    GAXITC 


CALL    GBCHAR 


1*2000. ,0.) 
1.IW.2,  CHARS) 

1^  20  00.(0.,  2., 0.,  2, CHARS) 


IF     (I    .GE.     6)     GOTO    215 

CALL   GBMOVE  (1000..  1*2000.) 

CALL    GBDRAW  (0.  ,2000. »I) 

CALL   G AXITC  (1 ,IW,2,CHARS) 

CALL   GBCHAR  {-§0.  ',1*2000.  ,2.  ,0.  ,2, CHARS) 


215       CONTINUE 
I1=MINY 
I2=MAXY 
MAXY=MINY-15 
MINY=MINY-200 


CALL    GBCHARJlO.'.'lo., 5.5,6.. 55, 'ZESO     DEGREES    ALONG    X    AXIS' 


T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

o  ■ 

T2 

0 

T2 

0  ; 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0  : 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0  i 

T2 

0'< 

T2 

O'i 

T2 

0': 

T2 

0 

T2 

0 

T2 

0); 

T2 

01 

T2 

0 

T2 

0! 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

o: 

CALL    GSFRCE 

MAXY=I2 

MINY=I1  ^2 

C  T2 

C         DRAW    THE    ALTIMETER  || 

C  T2 

CALL   WIN(MIN1, MAX1, 350., 2200. ,  1)  %l 

DO    220    1=2,20,2  k? 

CALL    GBMOVE(0..I*100.) 

CALL    GBDRAW  (350.  .1*100.) 

CALL    GAXITC    1,1, 2, CHARS) 

220  CALL    GBCHAR  (0.  ,1*100.  ,2., 0.  ,2, CHARS) 

DO    225    1=1,6  M       <rtrt    v 

CALL    GBMOVE  (1*50.  ,100.) 
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225      CALL   GBDBAW(I*50. ,0.) 


C 


C 


C 


C 


T2 


C    HARK  RESET  POINT  VELOCITY  AND  ALTITUDE  AS  OPERATOR  AID  T2 

C  T2 

IF    (IRQ.NE.O     .AND.    ICT    .GT.1)CALL    SB  GDOT  (9 .  ,  VEL  (ICT)  ,Z  (ICT)  )  T2 

MAXY=MINY-15  T2 

MINY=MINY-200  T2 

CALL    WIN  (MIN1-250,MAXH-650,195..  185.  ,  0)  T2 

CALL    GBCHAR( 10., 110. .2.0-0. .19. 'ALT    MARKS    IN    1000"S')  T2 

CALL    GBCHAR(10.,60. ,2.0, 0. ,29, »VELOCITY    IN    50"S     ALONG    X    AXIS1)  T2 

CALL    GSFRCE  T2 

MAXY=I2  T2 

MINY=I1  T2 

501       FORMAT  (2F10.  2)  T2 

630       FORMAT (»     AT    WHICH    POINT    DO    YOU    WANT    TO    RESTART')  T2 

635       FORMATf'     VILLAGE:    0=NOT    DRAWN;     1  =  VILLAGE    DRAWN1)  T2 

650       FORMAT('     X,Y,Z,AND    VELOCITY'  ,4F9.  1)  T2 

RETURN  T2 

END  T2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T2 

C  SUBROUTINE    WIN  C  T2 

C  THIS    ROUTINE    DEFINES    A    WINDOW    EXTENDING    FROM    LX    TO    MX    ON         C  T2 

C  THE    HORIZONTAL    AXIS,     AND    FROM    MINY    TO     MAXY    ON    THE    VERTICAL    C  T2 

C  AXIS.    THE    HORIZONTAL    RANGE    IS    RX,    THE     VERTICAL    RANGE    IS    RY    C  T2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T2 

SUBROUTINE   W IN  (LX.MX ,RX, RY , JMP)  T2 

COMMON/MN/IB AUD, MINY, MAXY  T2 

REALS4    WIN1(4)  T2 

INTEGER* 4    VI  (U)  T2 

DATA    WIN1  (1)  /0./,WIN1  (2) /0./  T2 


T2 


C  DEFINE    THE    WINDOW  T2 


T2 

V1(2)=MINY  T2 

V1(U    =MAXY  T2 

WIN1(3)=BX  T2 

WIN1(<0=RY  T2 

V1(1)=LX  T2 

V1(3    =MX  T2 


CALL    GASVIE(V1,0)  T2 

CALL    GASWIN(WIN1,0)  T2 

IF    (JMP     .EQ.     0)     GOTO    11  T2 


T2 


C    FLASH  THE  DEFINED  WINDOW  T2 

C  T2 

ICT  =  U+50*IBAUD  T2 

DO  10  1=1, ICT  T2 

CALL  GBMOVE  (0..0.)  T2 

CALL  GBDRAW  (WIN1  (1)  ,WIN1  (4)  )  T2 

CALL  GBDRAW  (WIN1  (3)  ,WIN1  (4)  T2 

CAIL  GBDRAW  (WIN1  (3|,WIN1  (2)  )  T2 

10       CALL  GBDRAW  (WIN1  (1)  ,WIN1  (2)  )  T2 

1  1    RETURN  T2 

END  T2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T2 

C               SUBROUTINE  BEGIN  C        T2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T2 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  T2 

SUBROUTINE  BEGIN  T2 

COMMON/MN/IBAUD, MINY, MAXY, MINX, MAXX,  MINI ,MAX1  T2 

CCMMON/OPT/IGUNrIPNCH,IEXT, ISAM, IMP,  KER  T2 

C  T2 

C         READ    USER    OPTIONS  T2 

C  T2 

50         WRITE     (6.600)  T2 

READ     (5,*)     IGUN  T2 

WRITE     (6,630)  T2 

READ  (5,*)  IMP  T2 

WRITE  (6.  635)  T2 

READ  (5,*)  KER  T2 
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WRITE     (6,625) 
READ     (5,^)     IBADD 
WRITEJ6,640) 
READ(5,*)KON 


600 
625 
6  30 
635 
6U0 


IF  (KON 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


NE.  0)  CALL  CONCHG 
GUNS:0=DISK  FILE; 1=TE RMINAL 
EAOD  RATE:  0=300  BAUD;  1=12 
MILESTONE  INPUT:  0=DISK  FIL 
ERROR  CHECKING:  0=NO  CHECKI 
FLIGHT    &    GAME    PARAMETERS:    0 


;2=PRESET    ') 

00    BAUD') 

E:    1=TSRMINAL') 

NG:     1=CHECK    FOP    ERRORS') 

=DEFAULT;     1=USER    INPUT') 


C 

c 
c 


INITIALISE    THE    GRAPHICS    AND    CLEAR    SCREEN 

MAXX=3200 

MINX=500       Mt. 

MAX1=MAXX+225 

MINl=MAXX+30 

MAXY=2500 

HINY=700 

COMPUTE    THE    SCREEN    WINDOW    COORDINATES 


CALL  DSINIT 
CALL  GSERSE 
RETURN 

CCCCCCCCCCCC CCCCCC CCCCCCCCCCCC CCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CCCCC  ELFXN 

CCCCCCCCCCCC CCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCC CCCCCC CCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE    ELFIN  (LAST) 

COMMON /OET/IGUN, I PNCH,IEXT, ISA 

COMMON/MN/   IBAUD,MINY, MAXI,MIN 


CCCCCC 
CCCCCC 

CCCCCC 
CCCCCC 

M,IMPf 
X,MAXX 


CCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCC CCCCCC CCCCCCCCCCCCCCCCC 

ccccc 

CCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCCCCC 

KER 

,MIN1 , MAX1 


c 
c 
c 

c 
c 
c 

c 
c 
c 


CLOSE  GRAPHICS  ROUTINES 


CALL  DSTERM 


OR    NEW     (LAST=1)     FLIGHT    PATH? 


OLD  (LAST=0) 

IF  (LAST  .EQ.  0)  GOTO  20 
REQUEST  USER  OUTPUT  OPTIONS 


'15 


20 


C 

c 
c 


WRITE  (6,595) 

READ  (5  ,*)  LAST 
IF     (LAST.  GE.2    .OR 
LAST=1    +    82*LAST 

WRITE  (6  ,610) 

WRITEJ6.620) 

READ(5,^)IPNCH 


LAST.LT.0)     GO    TO    1 5 


IF    MILESTONES    CAME    FROM    DISK,     RETURN    END   OF    FILE    MARKER 


100 


590 
595 
600 
610 
6  20 
6  30 
640 


IF     (LAST    .EQ.     0)     LAST=83 
IF     (IPNCH    .EQ.     0)     RETURN 
IF(IPNCH.EQ.  2[    GOTO     100 
WRITE  (6,630) 
READ  (5,*)  IEXT 
IF(IPNCH    .EQ. 
WRITE    6,640) 

READ  (5,3J  ISAM 
IF    ((ISAM    .LT.     1) 
URN 

+HIT     ANY 
ARE    YOU 
SCREEN 
OUTPUT 


RETURN 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


1)     RETURN 
.OR.     (ISAM    .GT.    7)  )     GOTO    100 


KEY  FOR  OUTPUT  OPTI 
FINISHED  WITH  THIS 
OUTPUT:  0=NO  OUTPUT; 
FILE:  0=NO  OUTPUT;  1 
2= MICE  FILE  ON 
EXTENDED  OUTPUT;  0=NOT  WANI 
MISSILE    TYPE    BETWEEN    1    AND 
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ON    SELECTION') 
FLIGHTPATH:     0=NO;     1=Y2S') 

1=OUTPUT    DESIRED') 
=P001     FILE    ONLY') 
LY;    3=P001     &    MICE    FILES') 
ED;     1=EXTENDED    OUTPUT') 
7') 


T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 

T2 

0 
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END 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

cccccccccccccccccccccccccccccccccccc 

CCCCC  AIMPT 

cccccccccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccccccccc 

SUBROUTINE    AIMPT  (I) 
COMMON/TAR/TARGX,TARGY 
COMMON/PAR/X(200)  ,Y(2  00) 
REAL1*!*    TX,TY,TX1,TYT 

TX=X(I) 

TY=YJI) 

TX1=TARGX 

TY1=TARGY 

CALL   GSLT(1) 


CCCCCC 

cccccc 

CCCCCC 

cccccc 


cccccccccc 
cccccccccc 

cccccccccc 
cccccccccc 


ccccccccccc 
ccccccccccc 

ccccccccccc 
ccccccccccc 


c 
c 
c 

c 
c 
c 


MOVE    TO    CURRENT    MILESTONE    COORDINATES 

CALL   GBMCVE(TX,TY) 
DRAW    DASHED    LINE    TO   TARGET 


CALL    GBDRAW(TX1,TY1) 

CALL   GSLT(O) 

RETURN 

END 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCC CCCCCC cccccccccc cccccccc 
CCCCC  CONCHG 

CCCCCCCCCCCC CCCCCC cccccccccccccccccc 
cccccccccccc cccccccccccccccccccccccc 

SUBROUTINE   CONCHG 
COMMON /PAR3/TMD, ACLIFT,CLMAX, W 
COMMON/PAR4/APPMAX. HTMIN,HTMAX 
COMMON /TAR/TARGXrTARGY 


CCCCCC 
CCCCCC 

CCCCCC 
CCCCCC 

L,TMAX 
,SPDMI 


CCCCCCCCCC 
CCCCCCCCCC 

CCCCCCCCCC 

cccccccccc 

,CD0,CDK,7 
N,GMAX,POP 


CCCCCCCCCCC 
CCCCCCCCCCC 

CCCCCCCCCCC 

ccccccccccc 

MAX1,VMAX2 
MIN 


C 
C 
C 


WRITE    INSTRUCTIONS 


30 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

READ 

IF 


(6  ,100) 
i  '6 r  105. 


GO 


TC(2C 


100 

105 

110 

115 

120i 

125 

130 

135 

-mo 

IE.    0) 
00.2.3.- 
WRITE  (6.202) 

READ  (5.*)  CLMAX 

GO    TO   3  0 
WRITE(6.203) 

READ  (5,*)  WL 

GO    TO    3  0 
WRITE  (6,204) 

READ  (5.3)  SPDMIN 

GO    TO   3  0 
WRITE  (6,205) 

READ  (5.^)  GMAX 

GO    TO    3  0 
WRITE  (6.206) 

READ  (5.**)  HTMIN 

GO    TO    3  0 
WRITE  (6,207) 

READ  (5.*)  HTMAX 

GO    TO    3  0 
WRITE  (6,208) 

READ  (5,^)  POPMIN 

GO    TO    30 
WRITE  (6,2  09) 


.OR.      (K    . GT.     17 
4,5,6,7,8,9,10,1 


))     GO     TO    3  0 

1,12,  1  3,14, 15, 16,17)  ,K 


T2 
CCCCCCCCCT2 
CCCCCCCCCT2 
CCCCCT2 
CCCCCCCCCT2 
CCCCCCCCCT2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
CCCCCCCCCT2 
CCCCCCCCCT2 
CCCCCT2 
CCCCCCCCCT2 
CCCCCCCCCT2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
T2 
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10 
1  1 
12 
13 

14 

15 


REA 
GO 

WRITE 
REA 
GO 

WRITE 
REA 
GO 

WRITE 
REA 
GO 

WRITE 
REA 
GO 

WRITE 
REA 
GO 

WRITE 
REA 
GO 


E(5,*)  APPMAX 
TO    3  0 
(6.2  10) 
D(5.^)     TMAX 
TO    3  0 
(6,211) 
E(5.ft)  CDO 
TO   3  0 
(6.2  12) 
C  (5,*)  CDK 
TO    3  0 
(6.213) 
E(5.*)  VMAX1 
TO    3  0 
(6,214) 
D (5.^) VMAX2 
TO    3  0 
(6.2  15 

TO  5o 


S**)TABGX,TABGY 


C 

C         READ    NEW    PARAMETER    VALUES    FROM    THE    DISK 
C 
16 


C 
C 
C 


REWIND    16 

READ     (16,  300)CLMAX,  WLrSPDMIN,GM 
READ      16,300)POPMIN, APPMAX. TMAX 
READ     (16,  300)  VMAX2, TARGX, TARGY 
GO    TO   3  0 


AX,HTMIN,HTMAX 
,CD0,CDK,VMAX1 


WRITE    PARAMETER    VALUES    TO    THE    TERMINAL 


17 


WRITE  (6,250) 

WRITE (6 ,300) CLMAX,WL,SPDMIN,GMA 

WRITE  (6  ,255) 

WRITE  (6,  3  00  i  POPMIN,  APP  MAX,  TMAX, 

WRITE  (6  ,260 

WRITE  (6f300)  VMAX2,TARGX,TARGY 


C 

c 
c 


GO 


TO    3  5 


X,HTMIN,HTMAX 
CD0,CDK,VMAX1 


SAVE    PARAMETER    VALUES    ON    DISK    AND    RETURN    TO    CALLING    ROUTINE 


2  00 


100 
105 
1  10 

1  15 
120 
125 

130 
135 
140 
202 

2  03 
2  04 
205 
206 
2  07 
208 
209 
2  10 
211 
212 
213 
214 
215 
250 
255 


REWI 
WR 
WR 
W  R 
RETURN 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
!  LIFT') 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


NC    16 

ITEM  6,  300)  CL  MAX,  WL,SPDMIN,GM 
ITE  (16,300)  POPMIN,  APP  MAX,  TMAX 
ITE(16,300) VMAX2,TARGX,TARGY 

') 

SELECT  PARAMETER  TO  BE  CHAN 
2=MAX  LIFT  COEFF;  3=WING  L3 
5=MAX  G  FORCE;  6=MIN  ALT:  7 
8=DISTANCE  TO  TARGET  BEFORE 
9=MAX    APPROACH    ALT:     10=MAX 


AX,HTMIN,HTMAX 
,CD0,CDKrVMAX1 


GED:  1=NO  MORE 
ADING;  4=STALL 
=MAX    ALT(<2200 

POPUP    ALLOWED') 
T/W    RATIO;     11=DRAG 


CHANGES') 

SPEED') 
MTR)  ') 


COEF.     W/0 


12=LIFT    DRAG    CONSTANT 
14= MAX    SPD    W/O    BOMB: 
16=READ    PARAMETER    FIL 
ENTER    MAX    LIFT    COEFFI 
ENTER     WING     LOADING') 
ENTER    STALL    SPEED') 
ENTER    MAX    G    FORCE    ALL 
ENTER    MINIMUM    ALTITUD 
ENTER     MAXIMUM    ALTITUD 
ENTER     MINIMUM    DISTANC 
ENTER     MAXIMUM    APPROAC 
ENTER    MAX    THRUST    TO    W 
ENTER    DRAG    COEFFICIEN 
ENTER    LIFT    DRAG    CONST 
ENTER    MAX    SPEED    CARRY 
ENTER    MAX    SPEED    AFTER 
ENTER    TARGET    X    AND    Y 
MAX    CL  WING    LD       STA 

POP-UP    DIS™  APP^.HT 


;  13=M 
15=TAS 
E;  17  = 
CIENT' 


OWED') 
E«) 

E     (LES 
E  TO   r 
H    ALU 
EIGHT 
T    FOR 
ANT') 
ING    A 
BOMB 
COORDI 
LL    SPD 
MAX 


AX    SPD    WITH    BOMB') 
GET    COORDINATES     ') 

LIST    PARAMETERS') 
) 


METERS)  •) 
POP-UP 


S    THAN    2030 
ARGET    BSFORF 
TUDE') 
ALLOWED') 
ZERO     LIFT') 

BOMB') 

IS    RELEASED') 

NA^ES ' ) 

*MAX  G    KIN.HT. 
THRUST   CDO   DRAG 


ALLOWED') 


T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0' 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2  0 
T2 
T2 


T2 
T2 


T2 

T2 
T2 

T2 


T2 

T2 

T2 
T2 


T2  0 


T2  Oi 

T2  0 

T2  0. 

T2  0 

T2  0 

T2  0' 

T2  0 


MAX.HT. 
CONSTANT 


T2  0; 
T2  0 
T2  0 
T2  0 
T2  0; 
T2  0 
T2  0; 
T2  0 
T2  0: 
T2  0 
T2  0' 


T2  0: 

T2  Oi 

T2  Oi 

T2  Oi 

T2  Oi 

T2  0 

T2  Oi 

T2  0 

T2  0 

T2  0 

T2  0 
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FILE:    T2 


FORTRAN 


NAVAL    POSTGRADUATE     SCHOOL 


260 
300 

CCCCCC 

cccccc 
c 

cccccc 
cccccc 


c 
c 

c 


MAX    SPD 
FORMAT  (' 
FORMAT (6 
END 

cccccccc 

cccccccc 

cccccccc 
cccccccc 

SDBROUT 
COMMON/M 
COMMON/P 
COMMON/P 
COMMON/E 
IF    (IERR 


KITH     BOMB') 

MAX    SPD    W/O 
F12.U) 


30MB 


TARGET     X    COORD. 


TARGET    Y    COORD. ') 


CCCCCC 

cccccc 

SUBRO 
CCCCCC 

cccccc 

INE  ER 
N/  IBA 
AR/X  (2 
AR1/XD 

5R/MKE 
.GT 


cccccccccccccc cc cccccc ccccccccccccccccccccccc 
ccccccccccccccccccccccccccccccccccccccccccccc 

cccccccccccccccc cccccc ccccccccccccccccccccccc 
cccccccc cccccccc cccccc ccccccccccccccccccccccc 

pup  {TERR^ 

^fJiH(l6o^S'(5i8f:Sffi25Sr:t!^o)fHi(2oo)fTEL(2oo) 

OT(200)  ,YDOT(200J,ZDO?  (200)  ,MNUM,M3R 
RX(3)  .MKERY(15) 
20)     GOTO    35 


FLASH    THE    PROMPT    WINDOW 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

1U 

15 

16 

17 

18 

19 

20 

75 

85 

601 

602 

6  03 

604 

605 

606 

6  07 

6  08 

609 


CALL    W 

CALL    G 

GOTO 

WR 

WR 

WR 

WR 


IN(MKERX  (1)  rMKERX  (2)  ,2  700.,  1  85.,  1) 

1l?2*3,4.5,6,7,8,9,10,11,12,  1  3, 1 4 , 15, 1 6, 1 7, 1 8, 19, 20)  , IERR 

ITE(6,601) 

GOTO    7  5 

ITE(6,602) 

GOTO    7  5 


ITE(6,603) 

GOTO    7  5 

ITE(6,604) 

GOTO  7  5 
WRITE(6,605) 

GOTO  75 
WRITE(6,606) 

GOTO  75 
WRITE(6,607) 

GOTO  7  5 
WRITE(6,608) 

GOTO  75 
WRITE (6,  60  9) 

GOTO  75 
WRITE(6,610) 

GOTO  75 
WRITE]6,611) 

GOTO  7  5 
WRITE(6,612) 

GOTO  75 
WRITE(6.613) 

GOTO  8  5 
WRITE(6,614) 

GOTO    8  5 


WR 
WR 
WR 

WR 
WR 
WR 


RETURN 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


WR 


ITE(6,615) 
GOTO  85 
ITE(6.616) 
GOTO  8  5 
ITE(6,617) 
GOTO  7  5 
ITE(6, 618) 
GOTO  75 
ITE(6.619) 
GOTO  8  5 
ITS]6. 620) 

ITS  (6,  65  0)  X(MNUM)  ,Y(MNUM)  ,Z(MNUM)  ,VEL(MNUM) 

MAXIMUM    BRAKING    EXCEEDED') 

MAX    G    EXCEEDED') 

ALT    TOO    LOW') 

ALT    TOO    HIGH') 

STA  LL  ') 

POP-UP    TOO    LOW'  ) 

BMB    DROP    LOW1) 

BMB     DROP    HI') 

TGT* 


TOO    FAR    FM 


) 


T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

T2 

■p? 

T2    * 
T2 
T2 
T2 

T2 
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FILE:    T2 


FORTRAN      A  NAVAL    POSTGRADUATE    SCHOOL 


610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
650 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
END 


HDG>5    DEG   TO    TGT') 
FINAL    R0N<2.33    SEC) 
NO    HORIZONTAL    MOTION1) 
TOO    CLOSE   TO    TGT ' ) 
ENTER    MISSILE    LOCATION') 
ENTER    MILESTONES') 
ENTER    GUN    LOCATION! 


S') 

I 

X   COORDINATE    LESS    THAN 
DO    YOO    WANT    TO    FIX    THE 


MAX    LIFT    EXCEEDED' 
MAX    THROST    EXCEEDED') 


X,Y,Z,AND    VELOCITY'  ,4F9.  1) 


6003  ') 
ERR3R:0=NO,USE 


THE    POINT; 1=YES') 


T2 

0' 

T2 

0' 

T2 

0< 

T2 

0' 

T2 

0' 

T2 

0: 

T2 

0l 

T2 

0: 

T2 

0' 

T2 

0' 

T2 

01 

T2 

0' 

T2 

0l 
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APPENDIX  E 
SCENE  PROGRAM  LISTING 


DIMENSION    LIMX  (U)  ,LIMY  (4) 
CALL    INIT 


50         WRITE     (6.600) 
READ     (5.S)     II 
ONE=-0.5 
TWO=-2.0 
ZERO=0.0 


MAXX=KIN  (7.5 
MINX=KIN  (1.5 
NAXY=KIN  (0.375 


MAXY=KIN  (0.375) 

MINY=KTN  (4.375) 

MAXY=777-MAXY 

MINY=777-MINY 

READ     (5,*)QT 

CALL    NEWFAG 

CALL    MOVABS(MINX,MINY 

CALL    DRWABS(MINX,MAXY 

CALL    DRWABS(MAXX,MAXY 

CALL    DRWABS(MAXX,MINY 

CALL    DRWABS(MINX,MINY 

CALL    DWINDO(0. 

CALL   TWINDO     (« 

IF    (II.GT.O)     GOTO"300 

READ(9,501)     X,Y 

200  READ(9,501)     X,Y 
CALL    MOVEA(X,Y) 

201  READ(9,501)     X,Y 

IF    (X.  LT.-1)     GOTO    300 
IF     (X.LT.    0)     GOTO    200 
CALL    DRAWA(X,Y) 
GOTO    201 

300  WRITE(9,501)        ONE, ZERO 
CALL    VCURSR(LTR,X,Y) 
CALL    POINTA(X,Y) 
WRITE     (9.501)     X,Y 

301  CALL    VCUBSR(LTR,X,Y) 
CALL    DRAWAJX,Y) 
WRITE     (9,50lf     X,Y 


SINX.MINY) 

3. -18000. .0. ,12000.) 

(MINX,MAXX,MINY,MAXY] 


CALL    DRAWAJX,Y) 

~,501)   X, 
IF  (  LTR.EQ. 77)  GOTO  300 


i 


IF  (LTR  .NE.  83)  GOTO  301 
WRITE  (9,501)   TWO, ZERO 
CALL  FIN 

500  FORMAT (217) 

501  FORMAT (2F10.  2) 

600  FORMAT  (*     ENTER    POSITIVE    INTEGER    FOR     RESTART') 

STOP 
END 
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